Одномерный массив (PASCAL)

[KirillP]

ПОМОГИТЕ КТО-НИБУДЬ!

[Cannibal]

var
 i, j, n:byte;
 mas: array[0..100] of integer;

begin
write('n= ');
readln(n);
n:=n-1;
for i:=0 to n do
begin
write('mas[',i,']=');
read(mas[i]);
end;

j:=0;
writeln('Четные ');
for i:=0 to n do
begin
if (mas[i] mod 5)=0 then
j:=j+1;
if mas[i]>0 then
writeln(mas[i])
end;
write('Количество кратных 5: ',j);
readln
end.

[KirillP]

почему mod а не div ?

[Cannibal]

потому что число1 кратно числу2 если остаток от деления будет равен 0.

div- целочисленное деление ( 36 div 5 = 7)
mod - остаток от деления (36 mod 5 = 1)