Дан массив из 10 элементов,которые заполняются случайным образом.Найти: а)наименьший элемент
б)сумму не положительных элементов
в)произведение элементов,кратных 3.
я сделал рандомные числа от 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:=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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
