Question

найти сумму элементов кратных 5 в одновременном массиве

Answer 1

Ответ во вложенном файле

a9c4b71e1e550418e95896dd88873fb7.pas

Answer 2

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.

a9c4b71e1e550418e95896dd88873fb7.pas

Answer 3

проверила ...всё работает