Турбо паскаль ) дан двухмерный массив, найти количество элементов массива меньших 5

222

290

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

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

Помидоркин001

Информатика

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

Var a: array [0..5, 0..10] of integer; i, j, c: integer; begin for i : = 0 to 5 do for j : = 0 to 10 do a[i, j] : = random(10); for i : = 0 to 5 do for j : = 0 to 10 do writeln('[', i, ', ', j, '] => ', a[i, j]); for i : = 0 to 5 do for j : = 0 to 10 do if (a[i, j] < 5) then c : = c + 1; writeln(c); end.