Заполнить массив случайными числами из промежутка (1-100) и определить в массиве...

Question

Заполнить массив случайными числами из промежутка (1-100) и определить в массиве Н[1..30]кол-во чисел запись которых заканчивается единицей

Answer 1

Program Program1;
Var
H:array [1..30] of integer;
i,k:integer;
begin
randomize;
writeln('Массив:');
for i:=1 to 30 do
begin
H[i]:=random(100)+1;
writeln('H[',i,']=',H[i]);
end;
k:=0;
for i:=1 to 30 do
begin
if H[i]=1 then inc(k) else
if (H[i]>10) and (H[i] mod 10 = 1) then inc(k);
end;
writeln('Чисел заканчивающихся единицей: ',k);
end.