Program Linao;
uses crt;
const n = 20;
var
x:array [1..n] of real;
i,k,j,sum:integer;
max, min,temp: real;
begin
writeln('*** alphaues is thinking... ***');
for i:=1 to n do
begin
write('*');
for j:=1 to n*100000 do j:=j;
end;
writeln;
k:=0;
randomize;
sum:=0;
writeln('негативні елементи: ');
for i:=1 to n do
begin
x[i]:=random(101)-50;
if x[i]<0 then
begin
sum:=sum+i;
writeln(i,'-й елемент, рівний ',x[i]);
k:=1;
end;
end;
if k=0 then
writeln('Немає таких елементів!');
end.
Program nalko;
uses crt;
const n = 10;
var
a:array [1..n] of real;
i,k:integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
Randomize;
{ввод чисел}
for i:=1 to n do
begin
write('Введите ',i,'-е число '); readln (a[i])
end;
writeln('Корни и квадраты: ');
for i:=1 to n do
begin
write('A[',i,']=',a[i]:7:2,' корень');
if a[i]<0
then write(' не существует')
else write('=',sqrt(a[i]):7:2);
writeln(' квадрат=',a[i]*a[i]:7:2);
end;
end.