Const
x0 = 1.909;
x1 = 6.23;
step = 1.005;
t=10;
var
i: real;
begin
i:=0;
while i<(x1-x0)/step do
begin
writeln('a(', x0+i, ') = ', sqrt(1+sqr(x0+i))+t);
i:=i+step;
end;
if (x0+i-step)<(x1) then writeln('a(', x1, ') = ', sqrt(1+sqr(x1))+t)
end.
const n = 20;
var
a, b: array[1..n] of integer;
i, count: integer;
begin
for i := 1 to n do begin
a[i] := 1 + random(5);
b[i] := 1 + random(5);
if(a[i] = b[i]) then begin
writeln('Номер: ', i, ' Значение: ', a[i]);
inc(count);
end;
end;
if(count = 0) then writeln('Совпадений нет');
end.
Program Mas;
Var a:array[1..100] of integer;
i, n: integer;
Begin randomize;
writeln('Введите размерность массива',n);
readln(n);
for i:=1 to n do
a[i]:=random(45)-1; readln;
for i:=1 to n do
begin if a[i]>15 then
write(' ',a[i]);
end;
readln;
End.