Pascal
Дан массив А размерности 4x5,элементы которого случайные числа из [-10;45].Найти сумму положительных элементов массива
Дан массив А размерности 4x5,элементы которого случайные числа из [-10;45].Найти сумму положительных элементов массива
More Questions From This User See All
Answers & Comments
Ответ:
var A: array [1..5,1..4] of integer;
var i,j,sum: integer;
begin
sum:=0;
randomize();
For i:= 1 to 5 do
begin
For j:= 1 to 4 do
begin
A[i,j]:=random(56)-10;
if (A[i,j]>0) then sum:=sum+A[i,j];
write(A[i,j]:4);
end;
writeln();
end;
writeln('Сумма положительных элементов массива: ',sum);
end.