var a:array [1..100] of real;
i,n:integer;
t:real;
Begin
randomize;
n:=20;
for i:= 1 to n do begin
a[i]:=random(n*10)- 10*n div 2 ;
write(a[i]:4);
if i mod 10=0 then writeln;
end;
t:=a[1]
for i:= 1 to n do begin
a[i]:=a[i]/t ;
write(a[i]:4);
if i mod 10=0 then writeln;
end;
End.
Автоматический (через заданное количество времени), и по щелчку
Program n1;
var a: array[1..30] of integer;
i: integer;
begin
randomize;
for i:=1 to 30 do
begin
a[i]:=random(30)+1;
if a[i] mod 5=0 then write(a[i],' ');
end;
end.
var E = [];
for (let сч = 0; сч < 7; сч++)
E.push(parseInt(prompt()));