Создать массив А из десяти целых
чисел, принадлежащих промежутку [0;15). Вывести
полученный массив на экран. Посчитать s - сумму
элементов массива, значение которых меньше 5.
язык программирования - паскаль
Ответы
Ответ дал:
1
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.
Если моё решение помогло вам, отметьте его как лучшее. Спасибо! Удачи!
daryamiroshnikov:
спасибо огромное!!
Вас заинтересует
1 год назад
1 год назад
1 год назад
7 лет назад
8 лет назад