Заполнить массив из 15 элементов целыми случайными числами из диапазона от 0 до 40. Вывести массив на экран и найти сумму элементов массива, минимальный элемент массива и количество чисел больше 10
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.