Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Задание 3. Информатика. 10 класс. 40 баллов.

Ответ оставил Гость

Var X: array[1..6,1..6] of real;
i, j, rez: integer;
begin
rez := 0;
for i := 1 to 6 do
for j := 1 to 6 do begin
X[i,j] := random(11)-5;
if (j mod 6 = 0) then writeln(X[i,j]:4)
else write(X[i,j]:4);
if X[i,j] > 0 then inc(rez);
end;
writeln();
writeln(Количество положительных элементов: , rez);
end.