begin
var a := ReadArrInteger(10);
Println('Кол-во двухзначных, начинающихся нечетной цифрой:',
a.Where(t -> Abs(t).InRange(10, 99) and Abs(t div 10).IsOdd).Count)
end.
№2begin
var a := ArrRandom(20, -100, 100);
a.Println;
a.Incremental((p,q)->Abs(p-q)).Max.Println
end.
Пример-63 -2 94 93 71 43 -55 0 80 -39 -68 46 -91 -63 -47 -97 3 -59 64 -31
137
№3begin
var a := ReadArrInteger(10);
Println('Сумма чисел, начинающихся на цифру 5, равна:',
a.Where(t -> Abs(t).ToString[1]='5').Sum)
end.
ДЗ для ВЕРЫ ВИКТОРОВНЫ:
Объяснение:
Var I, N, m: integer;
{Выводит таблицу квадратов до N числа}
Begin
Readln(N); //Что вводим в этой строке и зачем? Как можно подсказать пользователю, что ввести?
{Вводим до какого числа нам нужно получить квадрат; Подсказать можно через WRITELN}
Writeln('Таблица квадратов чисел от 1 до N'); //Сколько раз выполняется этот оператор?
{Один раз}
For i:=1 to N do //Сколько раз выполнится цикл?
{N раз}
Begin //Зачем снова писать операторные скобки?
{Затем, что это цикл, который всегда обособляется и отделяет от остальных операторов}
m:=i*I;
Writeln(I,' ',m); //Как по-другому оставить пробелы между столбиками?
{Можно сделать так - Writeln(I:3,m:16);}
End;
End.
Python
my_list = [int(input()) for i in range(8)]
res = [i for i in my_list if i % 9 == 0 and i % 8 == 0]
print(f'Кол-во чисел: {len(res)}')
print(f'Сумма чисел: {sum(res)}')