Заполнить двумерный массив с датчика случ. чисел. сформировать одномерный массив, закинуть произведение четных элементов по каждому столбику. найти сумму элементов двумерного, для нечетных номеров столбика.
115
126
Ответы на вопрос:
const n=5; var i,j,s,p: integer; a: array [1..n,1..n] of integer; b,c: array [1..n] of integer; begin for i: =1 to n do for j: =1 to n do a[i,j]: =random(100); { вывод на экран } for i: =1 to n do begin for j: =1 to n do write(a[i,j]: 4); writeln; end; { цикл по массиву } for j: =1 to n do {цикл по колонке } begin s: =0; p: =1; for i: =1 to n do {цикл по строке} if (a[i,j] mod 2 = 0) then p: =p*a[i,j] else s: =s+a[i,j]; if (p> 1) then c[j]: =p else c[j]: =0; if (s> 0) then b[j]: =s else b[j]: =0; end; writeln('массив для четных элементов'); for i: =1 to n do write(c[i]: 10); writeln; writeln('массив для нечетных элементов'); for i: =1 to n do write(b[i]: 4); end.
Через месенджеры. а если программно, т вот так: комп пользователя подключённый к тырнету, потом сам тырнет как огромный сервир(хотя по риалу все сложнее) что ему передали, а поняв, передаёт сообщение другому
Популярно: Информатика
-
Girl120902.08.2020 01:51
-
ФионаА04.08.2022 14:31
-
kola334428.07.2020 08:04
-
tsybizovaanya11.11.2021 00:38
-
veronikarub20.10.2021 18:18
-
Ртдотк04.05.2022 09:55
-
magdigadjiev06.07.2022 07:13
-
plagiatik606.10.2021 19:56
-
бобр0419.08.2021 03:19
-
Anna19120313.11.2020 12:37