Регистрация
lenok010
24.04.2020 23:00
Информатика
Есть ответ 👍

Написать программу в паскале для решения следующей : вычислить и вывести на экран число и сумму положительных элементов столбца матрицы а(15; 10)

259
431
Посмотреть ответы 2

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

ntazhibaevaa
ntazhibaevaa
4,4(58 оценок)
//pascal abc.net v3.1 сборка 1172 const   n=15;   m=10; var   ma: array[1..n,1..m] of integer;   i,j,sum,co: integer; begin   randomize;   writeln('matrix: ');   for i: =1 to n do     begin     for j: =1 to m do       begin       ma[i,j]: =random(10)-3;       write(ma[i,j]: 4);       end;     writeln;     end;   for j: =1 to m do   begin   for i: =1 to n do     if ma[i,j]> 0 then     begin       sum: =sum+ma[i,j];       inc(co);     end;   writeln('sum ',j,': ',sum);   writeln('count ',j,': ',co);   sum: =0;   co: =0;   end; end.
kondrashkinacat21
kondrashkinacat21
4,6(24 оценок)

братан я не знаю когда узнаю дам отвкт

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