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

Question

Информатика

Венцеслава

4 июня, 04:53

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

+4

Ответы (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.