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.
var
n, i, k: integer;
a, b: real;
begin
read(n, a);
k := 0;
for i := 1 to n do
begin
read(b);
if (b < a - 8) or (b > a + 8) then
k := k + 1;
end;
if k > 0 then
write(k)
else
write('нет');
end.
Моя природа двигается и у неё течёт кровь а неживая природа это как камень или ещё что-то
1.
var x,y,S:real;
begin
x:=4.5;
y:=3.5;
write('Стороны прямоугольника: ');
writeln('x=',x,' y=', y);
S:= x*y;
writeln('Площадь прямоугольника: S=', S:4:3)
end.
2.
begin
writeln('Идёт бычок, качается,');
writeln('Вздыхает на ходу:');
writeln('- Ох, доска кончается,');
writeln('Сейчас я упаду!')
end.