Найдите количество элементов целочисленного массива , заканчивающиеся цифрой 3 . паскаль
Answers & Comments
ildarapple
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.
Answers & Comments
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.