Question

Дан массив из 10 элементов,которые заполняются случайным образом.Найти: а)наименьший элемент

б)сумму не положительных элементов

в)произведение элементов,кратных 3.

Answer 1

я сделал рандомные числа от 0 до 100, если нужно можешь изменить, что бы заполнялся пользователем.

 

a[10],i,min,s,p:integer

randomize

for i=1 to 10 do 

a[i]:=random(101);

min:=a[i];

s:=0

p:=1

for i=1 to 10 do begin

if a[i]<min then

min:=a[i];

if a[i]<0 then

s:=s+a[i];

if a[i] mod 3 = 0 then

p:=p*a[i];

end;

write('minimum=', min, ' summ=', s, ' umnosenie=', p);

end.