У меня получилось вот что (смотри скриншоты листинга программы и результата работы этой программы): uses Crt; const n = 10; var A: array [1..n] of integer; i: integer; begin ClrScr; Randomize; WriteLn ( ' Massiv I: '); for i:=1 to n do begin A[i] := 1+random(n); Write (A[i]:4); end; WriteLn; WriteLn ( ' Massiv II: '); for i:=1 to n do begin if (A[i] mod 2 =0) then A[i]:=0 else A[i]:=3*A[i]; Write (A[i]:4); end; ReadLn; end.
Program chisla;
var y,x,a,b,c,d,e: real;
begin
ReadLn(x);
a:=x-3;
b:=x-5;
c:=a*b;
d:=x-2;
e:=sqrt(d);
y:=e/c;
WriteLn (y);
end.