Задача 59050 Какое значение будет выведено на экран...
Условие
var
a: array [1..3,1..4] of real := ((111,12,3,4), (15,16,7,8), (9,0,11,12));
i, j, count: byte;
begin
count := 0;
for i:=1 to 3 do begin
for j:=1 to 4 do begin
write(a[i,j]:6);
if (a[i,j] > 9) and (a[i,j] < 100) then
count := count + 1
end;
writeln;
end;
writeln('count= ', count)
end.
информатика 10-11 класс
1816
Решение
★
