Задать вопрос
12 августа, 22:54

Заполнить двумерный массив с помощью датчика случ. чисел. Сформировать одномерный массив, закинуть произведение четных элементов по каждому столбику. Найти сумму элементов двумерного, для нечетных номеров столбика.

+1
Ответы (1)
  1. 13 августа, 01:42
    0
    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.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Заполнить двумерный массив с помощью датчика случ. чисел. Сформировать одномерный массив, закинуть произведение четных элементов по каждому ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы