Ввести массив из 10 положительных чисел. Программа должна посчитать сумму чисел кратных 5.
Написать программу PascalABC .
Написать программу PascalABC .
More Questions From This User See All
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Verified answer
Var a : array [1..10] of integer ;begin
for var i:=1 to 10 do read(a[i]);
var s:=a.Where(t->( t mod 5 = 0));
Writeln('Cумма: ',s.Sum)
end.
Выручай :D
sum:integer;
begin sum:=0;
for var i:=1 to 10 do begin
read(a[i]);
if a[i] mod 5 = 0 then sum+=a[i]
end;
Writeln('Cумма: ',sum)
end.
Пасиб ;)