Дан массив из...

Дан массив из 10 элементов. Подсчитать сумму трехзначных элементов массива, оканчивающихсянулем.

 

1
2
3
4
5
6
7
8
9
10
11
12
13
var a:array[1..10] of integer;
    i:integer;
    k:integer;
begin
  writeln('Введите массив: ');
  for i:=1 to 10 do readln(a);
  for i:=1 to 10 do
      if (a mod 10=0) then inc(k);
  writeln('Исходный массив: ');
  for i:=1 to 10 do write(a,' ');
  writeln;
  writeln('Количество чисел оканичвающихся нулем равно: ',k);
end.