Question

В массиве из 100 натуральных чисел до 300 найти те,которве заканчиваются на 8
не работает,в чем ошибка

Answer 1

Программа:

Pascal:

var

 arr: array[1..100] of integer;

 count: integer;

begin

 for var i := 1 to 100 do begin

   arr[i] := random(1, 300);

   if arr[i] mod 10 = 8 then inc(count);

 end;

 writeln(count);

end.

В вашем коде нет ошибки. Прилагаю свое решение задания.