Подсчитать количество отрицательных элементов двумерного массива в котором 3 строки и 4 столбца , заполнить надо, заранее !

297

374

Посмотреть ответы 3

Ответы на вопрос:

uchenik1988

Информатика

4,7(87 оценок)

Var a: array[1..3, 1..4] of integer; n, i, j: integer; begin n: =0; for i: =1 to 3 do for j: =1 to 4 do read(a[i, j]); for i: =1 to 3 do for j: =1 to 4 do if a[i, j]< 0 then n: =n+1; writeln('количество', n); for i: =1 to 3 do begin for j: =1 to 4 do write(a[i, j]: 4); writeln; end; end.

Flash017

Информатика

4,8(8 оценок)

Var a: array[1..3] of array [1..4] of integer; i,j,k: integer; begin for i: =1 to 3 do for j: =1 to 4 do begin read(a[i,j]); if a[i,j]< 0 then k+=1; end; writeln(k); end.