Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Заполнить массив из 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.