Создать массив А из десяти целых
чисел, принадлежащих промежутку [0;15). Вывести
полученный массив на экран. Посчитать s - сумму
элементов массива, значение которых меньше 5.
язык программирования - паскаль
чисел, принадлежащих промежутку [0;15). Вывести
полученный массив на экран. Посчитать s - сумму
элементов массива, значение которых меньше 5.
язык программирования - паскаль
More Questions From This User See All
Answers & Comments
var
a:array [1..10] of integer;
sum,i:integer;
begin
sum:=0;
for i:=1 to 10 do
begin
a[i]:=random(15);
write(a[i],' ');
if a[i]<5 then
sum:=sum+a[i];
end;
writeln;
writeln('Sum: ',sum);
end.
Если моё решение помогло вам, отметьте его как лучшее. Спасибо! Удачи!