использовать Чертежник
алг
нач
поднять перо
сместиться в точку (1,0)
опустить перо
сместиться в точку (1,1)
сместиться в точку (2,1)
сместиться в точку (2,0)
сместиться в точку (1,0)
поднять перо
сместиться в точку (2,1)
опустить перо
сместиться в точку (2,2)
сместиться в точку (3,2)
сместиться в точку (3,0)
сместиться в точку (2,0)
поднять перо
сместиться в точку (3,2)
опустить перо
сместиться в точку (3,3)
сместиться в точку (4,3)
сместиться в точку (4,0)
сместиться в точку (3,0)
поднять перо
сместиться в точку (4,2)
опустить перо
сместиться в точку (5,2)
сместиться в точку (5,0)
сместиться в точку (4,0)
поднять перо
сместиться в точку (5,1)
опустить перо
сместиться в точку (6,1)
сместиться в точку (6,0)
сместиться в точку (5,0)
поднять перо
сместиться в точку (6,1)
опустить перо
сместиться в точку (7,1)
сместиться в точку (7,0)
сместиться в точку (6,0)
поднять перо
сместиться в точку (7,1)
опустить перо
сместиться в точку (7,2)
сместиться в точку (8,2)
сместиться в точку (8,0)
сместиться в точку (7,0)
поднять перо
сместиться в точку (8,2)
опустить перо
сместиться в точку (8,3)
сместиться в точку (9,3)
сместиться в точку (9,0)
сместиться в точку (8,0)
поднять перо
сместиться в точку (9,2)
опустить перо
сместиться в точку (10,2)
сместиться в точку (10,0)
сместиться в точку (9,0)
поднять перо
сместиться в точку (10,1)
опустить перо
сместиться в точку (11,1)
сместиться в точку (11,0)
сместиться в точку (10,0)
поднять перо
сместиться в точку (11,1)
опустить перо
сместиться в точку (12,1)
сместиться в точку (12,0)
сместиться в точку (11,0)
поднять перо
сместиться в точку (12,1)
опустить перо
сместиться в точку (12,2)
сместиться в точку (13,2)
сместиться в точку (13,0)
сместиться в точку (12,0)
поднять перо
сместиться в точку (13,2)
опустить перо
сместиться в точку (13,3)
сместиться в точку (14,3)
сместиться в точку (14,0)
сместиться в точку (13,0)
поднять перо
сместиться в точку (14,2)
опустить перо
сместиться в точку (15,2)
сместиться в точку (15,0)
сместиться в точку (14,0)
поднять перо
сместиться в точку (15,1)
опустить перо
сместиться в точку (16,1)
сместиться в точку (16,0)
сместиться в точку (15,0)
кон
Объяснение:
Поделитесь своими знаниями, ответьте на вопрос:
В заданном массиве х(n, m) вычислить среднее арифметическое положительных элементов.
const
n=5;
m=10;
var
a:array [1..n,1..m] of integer;
i,j,sum,count: integer;
begin
count:=0; sum:=0;
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(41)-20;
write(a[i,j]:4);
if a[i,j]>0 then
begin
inc(count);
sum:=sum+a[i,j];
end;
end;
writeln;
end;
writeln;
write(sum/count:4:4);
end.