Задачи в паскале.

[andrey256]

3. program pas;
uses crt;
const
N=10;
var
A:array[1..N] of integer;
i,sum,k:integer;
begin
clrscr;
sum:=0;
k:=0;
for i:=1 to N do
begin
writeln('введите число');
readln(A[i]);
end;
for i:=1 to N do
begin
if A[i] mod 5=0 then
k:=k+1;
sum:=sum+A[i];
end;
writeln('среднее арифметическое=',sum/k);
readln;
end.

[cjcezar]

andrey256 Большое тебе спасибо!