Задайте 20 элементов массива случайным образом ** интервале от 10 до 120. Найти...

Question

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

Comments

Смех чисел это каких? Всех?

---

Всех чисел * ех

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.