В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Tomiriszharasbaeva
Tomiriszharasbaeva
21.12.2021 16:34 •  Информатика

Может кто нибудь решить это и расписать на листочке ? У меня контрольная если кто может )


Может кто нибудь решить это и расписать на листочке ? У меня контрольная если кто может )

Показать ответ
Ответ:
домашка68
домашка68
22.10.2020 21:34
1)
Program n1;
const n=5;
var a: array [1..n] of integer;
i: integer;
begin
for i:=1 to n do readln(a[i]);
for i:=1 to n do if( i mod 2=0) then a[i]:=0
else a[i]:=1;
for i:=1 to n do writeln(a[i]);
end.
2)
Program n2;
const n=25;
var a: array [1..n] of integer;
i,k: integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(5)+1;
if a[i]<3 then k:=k+1;
end;
writeln(k);
end.
3)
Program n3;
const n=5;
var a: array [1..n] of integer;
i,S: integer;
begin
S:=0;
for i:=1 to n do readln(a[i]);
for i:=1 to n do if (a[i]<0) then S:=S+a[i];
writeln(S);
end.
0,0(0 оценок)
Ответ:
axon11kot
axon11kot
02.11.2020 23:04
// PascalABC.NET 3.2, сборка 1379 от 21.01.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var m:=ReadInteger('Количество строк в матрице:');
  var n:=ReadInteger('Количество столбцов в матрице:');
  Writeln('*** Исходная матрица [',m,',',n,'] ***');
  var a:=MatrRandom(m,n,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  if a.Rows.SelectMany(x->x).Sum mod 21=0 then
    Writeln('Сумма элементов одновременно делится на 3 и на 7')
  else
    Writeln('Сумма элементов одновременно не делится на 3 и на 7')
end.

Примеры
Количество строк в матрице: 4
Количество столбцов в матрице: 7
*** Исходная матрица [4,7] ***
  73 -53  69 -94 -38  50  30
  -9  63  54  28 -56  68  21
 -97  18 -80  68  86 -27  -3
  33 -30 -17   6 -69 -95 -81

Сумма элементов одновременно не делится на 3 и на 7

Количество строк в матрице: 5
Количество столбцов в матрице: 4
*** Исходная матрица [5,4] ***
 -53  14  50  52
 -81  55  14 -89
  99 -53  37  96
  73  27  -8 -85
   0  -8  46  50

Сумма элементов одновременно не делится на 3 и на 7
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота