Дан двумерный массив 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
Не нашли ответ?
Ответить на вопрос
Похожие вопросы