Question

Задайте 20 элементов массива случайным образом на интервале от 10 до 120. Найти количество чисел превышающих 50. Найти минимальные значения. Найти произведения смех чисел

Answer 1

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.