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

Найдите количество элементов целочисленного массива , заканчивающиеся цифрой 3 . паскаль
Гость
Ответ(ы) на вопрос:
Гость
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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы