Var
a:array [1..100] of integer;
n,l,i,j:integer;
begin
<span>for i:=1 to 20 do</span>
read (a[i]);
for j:=1 to N-1 do
for i:=1 to N-j do
<span>if a[i] > a[i+1] </span>
<span>then </span>
<span>begin </span>
l:=a[i];
a[i]:=a[i+1];
a[i+1]:=l;
end;
for i:=1 to 20 do
<span>if ((a[i] mod 2)=1) and ((a[i] mod 5)=0) </span>
<span>then </span>
begin
writeln (a[i]);
break;
else writeln('таких чисел нет');
end;
<span>end.</span>
Const
N = 33;
Var
A:array[1..N] of real;
i,k:integer;
Begin
Randomize;
k:=0;
For i:= 1 to N do
Begin
if random(2) = 1 then A[i]:=random*N
else A[i]:=0;
Write(A[i]:0:3,' ');
if A[i] = 0 then k:=k+1
End;
WriteLn;
WriteLn('Количество нулей в массиве: ',k);
ReadLn
End.
// PascalABC.NET 3.3.5
begin
var xa, xb, xc, ya, yb, yc: real;
readln(xa, ya, xb, yb, xc, yc);
writeln(abs((xa - xc) * (yb - yc) - (xb - xc) * (ya - yc))/2);
end.
На иконке ярлыка в нижнем левом углу стрелка
Программа находит сумма квадратов двух чисел, чтоб уьроенного меняешь только строку c= и пишешь c=a*3+b*3