Заполнить массив из 15 элементов целыми случайными числами из диапазона от 0 до 40. Вывести массив на экран и найти сумму элементов массива, минимальный элемент массива и количество чисел больше 10
Заполнить массив из 15 элементов целыми случайными числами из диапазона от 0 до 40. Вывести массив на экран и найти сумму элементов массива, минимальный элемент массива и количество чисел больше 10
Гость
Ответ(ы) на вопрос:
Гостьprogram z1;
var
a:array [1..15] of integer;
i,r:integer;begin
randomize;
for i:=1 to 15 do
begin
a[i]:=random (40);
write (a[i],' ' );
end;
end.
Не нашли ответ?
Похожие вопросы