Регистрация
МастерФейк
14.08.2020 05:00
Информатика
Есть ответ 👍

Алгоритмді орындаушы​

162
335
Посмотреть ответы 3

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

Srednov
Srednov
4,5(28 оценок)

Адам,жануадлар,компьютер,техника

daryatabuewa
daryatabuewa
4,7(17 оценок)

Адам, жануарлар, компьютер, техника

neumnaya4044
neumnaya4044
4,6(32 оценок)
//pascal abc.net 3.1 сборка 1219 const   n=3;   m=4; var   ma: array[1..n,1..m] of integer;   arsub: array[1..m] of boolean;   i,j,s: integer; begin randomize; writeln('matrix: '); for i: =1 to n do   begin   for j: =1 to m do     begin     ma[i,j]: =random(-2,10);     write(ma[i,j]: 4);     if ma[i,j]< 0 then arsub[j]: =true;     end;   writeln;   end; for j: =1 to m do   if arsub[j]=true then   for i: =1 to n do     s: =s+ma[i,j]; writeln('res=',s); end. пример работы программы: matrix:     2   -2   9   9     0   9   10   1     4   9   -1   3 res=34

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