a:array[0..9] of integer;
i,y,min:integer;
begin
randomize();
for i:=0 to 9 do
begin
y:= random(10);
a[i]:= y;
end;
for i:=0 to 9 do write(a[i],' ');
writeln(' - десять випадковых чисел');
min:=a[0];
for i:=1 to 9 do
if a[i]<min then min:=a[i];
writeln(min, ' - минимальне число.');
end.
a:array[0..9] of integer;
i,y,min:integer;
begin
randomize();
for i:=0 to 9 do
begin
y:= random(10);
a[i]:= y;
end;
for i:=0 to 9 do write(a[i],' ');
writeln(' - десять випадковых чисел');
min:=a[0];
for i:=1 to 9 do
if a[i]<min then min:=a[i];
writeln(min, ' - минимальне число.');
end.
ar a,i,k1,k2,p,n:integer;
begin
writeln('сколько чисел вести');
read(n);
p:=1;
k1:=0;
k2:=0;
for i:=1 to n do
begin
a:=random(0,60);
if a mod 3<>0 then begin k1:=k1+1; p:=p*a; end;
if a mod 10=3 then begin k2:=k2+1; p:=p*a; end;
end;
writeln('количество чисел не делящихся на 3:',k1);
writeln('количество чисел оканчивающихся на 3:',k2);
writeln('произведение равно:',p)
end.