Дан двумерный массив 10х10, содержащий числа в интервале от -10 до 10. Вычислить отдельно сумму положительных и сумму отрицательных элементов. Паскаль.
Дан двумерный массив 10х10, содержащий числа в интервале от -10 до 10. Вычислить отдельно сумму положительных и сумму отрицательных элементов. Паскаль.
Гость
Ответ(ы) на вопрос:
Гость// PascalABC.NET 3.2, сборка 1325 от 19.10.2016
begin
var a:=MatrixRandom(10,10,-10,10);
var sp:=0; var sn:=0;
for var i:=0 to 9 do begin
for var j:=0 to 9 do begin
Write(a[i,j]:4);
if a[i,j]>0 then Inc(sp)
else
if a[i,j]<0 then Inc(sn)
end;
Writeln
end;
Writeln('Положительных ',sp,', отрицательных ',sn)
end.
Пример
-2 4 5 10 3 7 -8 -1 -5 -9
-2 6 -3 8 10 9 -8 3 9 9
2 10 3 5 10 1 -9 4 -7 3
9 1 -3 -5 7 5 2 0 -7 3
2 1 10 -8 -8 6 -8 -3 -5 0
-2 -10 -7 9 -9 -1 -9 10 -10 -8
6 -1 -4 3 -7 7 -1 -8 -10 -5
-3 2 0 -5 -4 -10 -10 0 3 -7
-1 5 -2 4 -6 9 -3 -1 -7 -2
3 2 0 -10 8 -7 -5 -3 10 -5
Положительных 44, отрицательных 51
Не нашли ответ?
Похожие вопросы