Question

Дан массив из 20 произвольных элементов, каждый из которых не больше 50. Найдите количество элементов, оканчивающихся на 2.
ПОЖАЛУЙСТА ПОМОГИТЕ !!! ПРОШУ!!!​

Answer 1

Pascal:

var

i,counter : integer;

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

begin

randomize;

 counter := 0;

 for i:= 1 to 20 do

 begin

 arr[i] := random (100) - 50;

 write(arr[i],' ');

 end;

 for i:= 1 to 20 do

 if (abs(arr[i]) mod 10 = 2) then

 counter := counter + 1;

 writeln();

 writeln(counter);

end.