Дан целочисленный массив из 30 элементов. Элементы массива могут принимать целые значения от 0 до 1000. Элемент массива называется хорошим, если это двузначное число, причём цифра в разряде едениц больше, чем цифра в разряде десятков. Опишите на одном из языков программирования алгоритм, позволяющий найти и вывести количество всех хороших элементов массива.
Ответы
Ответ дал:
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.
Ответ дал:
0
===== 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.
Приложения:
![](https://st.uroker.com/files/65d/65d82035c4dd9e9ffbf461a86f25a855.jpg)
Вас заинтересует
4 месяца назад
4 месяца назад
6 месяцев назад
6 месяцев назад
2 года назад
7 лет назад
7 лет назад