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

Question

Информатика

Зинуся

27 февраля, 16:03

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

+2

Ответы (1)

Знаете ответ на вопрос?

Алека · 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.