var
a:array [1..20] of integer;
i,k,mi: integer;
p:real;
begin
p:=1;
write ('Массив: ');
for i:=1 to 20 do
a[i] := Random(111)+10;
write(a[i],' ');
if a[i]>50 then k:=k+1;
p:=p*a[i]
end;
writeln;
writeln ('Количество чисел больше 50 равно: ',k);
writeln ('Произведение всех чисел равно: ',p);
mi:=1;
for i:=2 to 20 do
if a[mi]>a[i] then mi:=i;
writeln ('Минимальный элемент равен: ',a[mi])
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var
a:array [1..20] of integer;
i,k,mi: integer;
p:real;
begin
p:=1;
write ('Массив: ');
for i:=1 to 20 do
begin
a[i] := Random(111)+10;
write(a[i],' ');
if a[i]>50 then k:=k+1;
p:=p*a[i]
end;
writeln;
writeln ('Количество чисел больше 50 равно: ',k);
writeln ('Произведение всех чисел равно: ',p);
mi:=1;
for i:=2 to 20 do
if a[mi]>a[i] then mi:=i;
writeln ('Минимальный элемент равен: ',a[mi])
end.