Регистрация
alinaalina060
30.07.2021 19:56
Информатика
Есть ответ 👍

Дан двумерный массив M*N, заполненный случайными числами от -10 до 10. Найдите сумму всех элементов столбца и строки массива, на пересечение которых находится нулевой элемент( все суммы если нулевой несколько) или выведите сообщение, что в массиве нет нулевых элементов !

202
268
Посмотреть ответы 1

Ответы на вопрос:

aidos2008
aidos2008
4,5(77 оценок)

program test; var a: array[1..10] of integer; m, i: integer; total: longint; begin    randomize;     total: =1;     for i: =1 to 10 do    begin      a[i]: =random(20)+1;       write(a[i], ' ');     end;     writeln();     write('enter the number: ');     readln(m);     for i: =1 to 10 do    begin      if a[i] > m then          total: = total*a[i];     end;     if total > 1 then      writeln('total = ', total)    else      writeln('error');     readln; end.

Популярно: Информатика