Question

Найдите количество элементов целочисленного массива , заканчивающиеся цифрой 3 . паскаль

Answer 1

var i,s: integer;
a:array[1..10] of integer;
begin
randomize;
for i:=1 to 10 do begin
a[i]:=random(13)+1;
if (a[i]=3)or(a[i] mod 10 = 3) then s:=s+1;
end;
writeln(s);
end.