СРОЧНОО!!! В двумерном массиве произвольного размера, заданного на промежутке случайных чисел [-20;20]найти и вывести сумму положительных элементов последнего столбца (блок-схема,программа,трассировка)
Answers & Comments
Эклео
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.
Answers & Comments
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.
------------------------Результат:-------------------------
Введите количество строк: 5
Введите количество столбцов: 4
-20 14 10 13
0 -17 19 -4
-1 16 18 17
10 -8 -15 16
5 18 3 9
Сумма положительных элементов последнего столбца = 55