Найти сумму элементов кратных 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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы