Var
p:array [1..4,1..5] of integer;
i,j,k:integer;
begin
for i:= 1 to 4 do
begin
for j:=1 to 5 do
begin
p[i,j]:=Random(-100,100);
write(p[i,j]:5);
end;
writeln;
end;
for i:= 1 to 4 do
begin
k:=0;
for j:=1 to 5 do
if p[i,j]>0 then k:=k+1;
writeln ('Количество положительных элементов в строке ',i,' равно: ', k);
end
end.
Таблица истинности на картинке
Жирным отмечен ответ, в последней колонке
Первый способ (большой):
использовать Чертежник
алг Богдан_1
нач
опустить перо
сместиться в точку(0, 11)
сместиться в точку(6, 11)
поднять перо
сместиться в точку(0, 6)
опустить перо
сместиться в точку(6, 6)
сместиться в точку(6, 0)
сместиться в точку(0, 0)
поднять перо
сместиться в точку(8, 0)
опустить перо
сместиться в точку(8, 11)
сместиться в точку(14, 11)
сместиться в точку(14, 0)
сместиться в точку(8, 0)
поднять перо
сместиться в точку(16, 0)
опустить перо
сместиться в точку(16, 11)
сместиться в точку(22, 11)
поднять перо
сместиться в точку(22, 0)
опустить перо
сместиться в точку(22, -2)
сместиться в точку(22, 0)
сместиться в точку(30, 0)
сместиться в точку(30, -2)
сместиться в точку(30, 0)
сместиться в точку(28, 0)
сместиться в точку(28, 11)
сместиться в точку(24, 11)
сместиться в точку(24, 0)
поднять перо
сместиться в точку(32, 0)
опустить перо
сместиться в точку(32, 11)
сместиться в точку(38, 11)
сместиться в точку(38, 0)
сместиться в точку(38, 5)
сместиться в точку(32, 5)
поднять перо
сместиться в точку(40,0)
опустить перо
сместиться в точку(40, 11)
сместиться в точку(40, 5)
сместиться в точку(46, 5)
сместиться в точку(46, 11)
сместиться в точку(46, 0)
кон
Второй способ (короткий):
использовать Чертежник
алг Богдан_2
нач
написать(30, "Богдан")
кон