Var a: array[1..1000,1..1000] of integer; i,j,s,n,m: integer; begin; write ('Введите количество строк: '); readln (n); write ('Введите количество столбцов: '); readln (m); s:=0; for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(-20,20); write (a[i,j]:4); end; writeln; if a[i,m] >= 0 then s:=s+a[i,m]; end; writeln; writeln ('Сумма положительных элементов последнего столбца = ',s); end.
Const n=5; m=11; var a: array[1..n,1..m] of integer; i,j,s: integer; begin; s:=0; writeln ('Количество учеников по классам:'); for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(25,30); write (a[i,j]:3); end; writeln; end; writeln; write ('Введите номер параллели: '); readln (j); for i:=1 to n do s:=s+a[i,j]; writeln ('В ',j,'-ой параллели всего ',s,' учеников'); end.
![Вдвумерном массиве произвольного размера, заданного на промежутке случайных чисел [-20; 20]найти и в](/tpl/images/0673/3886/943e3.jpg)
аптнгреоьаі-89кенртоезфкшгшкнтзв8кртгкеі
Объяснение: