Darbs ar masīviem

To skaitļu skaitu, kuru pēdējais cipars ir 5;
Program work;
Var
A: array [1..20] of Integer;
c,i,n: Integer;
Begin
Writeln ('Ievadiet masīva A ietilpstošo skaitļu skaitu:');
Readln (n);
Writeln ('Ievadiet masīvu A:');
For i:=1 to n do Readln (a[i]);
For i:=1 to n do Begin

if (a[i] mod 5= 0) and (a[i] mod 10 <> 0) then c:=c+1;
end;
Writeln('Tādu skaitļu skaits ir ',c);
Readln;
End.
…