Найти количество положительных двузначных чисел в массиве - PascalABC.NET
Формулировка задачи:
Написать программу, которая находит количество положительных двузначных чисел в массиве.
Написать программу, которая находит первое число в массиве, равное сумме всех предшествующих.
Решение задачи: «Найти количество положительных двузначных чисел в массиве»
textual
Листинг программы
var
a: array[1..50] of integer;
i, pol: integer;
begin
writeln('Массив с элементами [-27;27]');
for i := 1 to 50 do
begin
a[i] := random(54) - 27;
write(a[i], ' | ');
end;
writeln;
writeln('Все положительные двухзначные числа');
pol:=0;
for i := 1 to 50 do
begin
if (a[i] > 9) and (a[i] < 100) then begin
write(a[i], ' | ');
pol:=pol+1;
end;
end;
writeln;
writeln('Количество чисел: ',pol);
end.
Объяснение кода листинга программы
- Объявляются переменные:
- a: массив из 50 целых чисел, значения которого будут в диапазоне от -27 до 27;
- i: счётчик для прохода по элементам массива;
- pol: счётчик для подсчёта положительных двузначных чисел.
- Выводится сообщение о массиве и его элементах.
- Заполняется массив случайными числами от -27 до 27.
- Выводится заполненный массив.
- Выводится сообщение о положительных двузначных числах.
- Устанавливается начальное значение счётчика положительных двузначных чисел равным 0.
- Происходит проход по элементам массива. Если элемент больше 9 и меньше 100, то он выводится и к счётчику прибавляется единица.
- Выводится последнее значение счётчика.