Регистрация
ayazhan10yearsold
25.03.2022 07:17
Информатика
Есть ответ 👍

Pascal
Посчитать кол-во элементов меньше 25 в массиве Q. Размерность массива 50, все элементы целого типа, элементы массива задаются случайным образом

138
263
Посмотреть ответы 2

Ответы на вопрос:

Настасья020704
Настасья020704
4,5(75 оценок)

// PascalABC.NET

begin

 var Q := ArrRandom(50, -99, 99);

 Q.Println.Count(p -> p < 25).Print

end.

rukozhop2002
rukozhop2002
4,6(65 оценок)

var

 n, i, sum, pr: integer;

begin

 Writeln('Введите число: ');

 Readln(n);

 pr := 1;

 while n <> 0 do

 begin

   i := n mod 10;

   if i mod 2 <> 0 then sum += i else pr *= i;

   n := n div 10

 end;

 Writeln('Сумма нечетных цифр: ', sum);

 Writeln('Произведение четных цифр: ', pr);

end.

Популярно: Информатика