Question

Дан целочисленный массив из 30 элементов. Элементы массива могут принимать целые значения от 0 до 1000. Элемент массива называется хорошим, если это двузначное число, причём цифра в разряде едениц больше, чем цифра в разряде десятков. Опишите на одном из языков программирования алгоритм, позволяющий найти и вывести количество всех хороших элементов массива.

Answer 1

Ответ:

var a:array[1..30] of integer;

i,k:Integer;

begin

write('Массив ');

for i:=1 to 30 do

begin

a[i]:= random (1001);

write(a[i],'  ');

if (a[i]>9) and (a[i]<100) and (a[i] mod 10 > a[i] div 10) then k:=k+1

end;

writeln;

writeln('Количество хороших элементов массива ',k)

end.

Answer 2

===== PascalABC.NET =====

begin

 var a := ArrRandom(30, 0,1000);

 a.Println;

 a.Count(p -> p.InRange(10, 99) and (p mod 10 > p div 10)).Println

end.