Найти сумму элементов кратных 5 в одновременном массиве
Найти сумму элементов кратных 5 в одновременном массиве
Ответ(ы) на вопрос:
Ответ во вложенном файле
program zadacia;
const n=10;
var a :array [1..n] of integer;
s,i:integer;
begin
writeln('vvedite massiv=');
for i :=1 to n do
readln(a[i]);
s:=0;
for i:= 1 to n do
if a[i] mod 5 =0 then s:=s+a[i];
writeln('s=',s);
readln;
end.
Не нашли ответ?
Похожие вопросы