Question

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

Answer 1

var

 cnt, i :integer;

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

 begin

   randomize;

   cnt := 0;

   for i := 1 to 100 do

     begin

     a[i] := random(300) + 1;

     write(a[i], ' ');

     if a [i] mod 10 = 8 then

       cnt := cnt + 1;

     end;

   writeln;

   writeln('Количество чисел, которые оканчиваются на 8: ', cnt);

 end.