Задание:
Дан массив из 10 элементов, которые заполняются случайным образом. Найти: а) наименьший элемент б) сумму не положительных элементовв) произведение элементов, кратных 3.
Решение:
Я сделал рандомные числа от 0 до 100, если нужно можешь изменить, что бы заполнялся пользователем. a[10],i,min,s,p: integerrandomizefor i=1 to 10 do a[i]: =random (101); min: =a[i]; s: =0p: =1for i=1 to 10 do beginif a[i]