program NonPositiveTwoDigitNumbers;
const
arraySize = 20;
type
TIntArray = array[1..arraySize] of Integer;
var
arr: TIntArray;
i, count: Integer;
procedure FillArray(var a: TIntArray);
begin
for i := 1 to arraySize do
a[i] := Random(200) - 100; // Заполняем массив случайными числами от -100 до 99
end;
procedure PrintArray(a: TIntArray);
begin
for i := 1 to arraySize do
Write(a[i]:5);
Writeln;
end;
function CountNonPositiveTwoDigitNumbers(a: TIntArray): Integer;
var result:integer;
begin
result := 0;
for i := 1 to arraySize do
if (a[i] < 10) or (a[i] > 99) then // Если число не является положительным двузначным
Inc(result);
CountNonPositiveTwoDigitNumbers:= result;
end;
begin
Randomize;
FillArray(arr);
Writeln('Исходный массив:');
PrintArray(arr);
count := CountNonPositiveTwoDigitNumbers(arr);
Writeln('Количество элементов, которые не являются положительными двузначными числами: ', count);
ReadLn;
end.
Похожие записи/страницы:
- Посчитать сумму элементов в тех строках, которые не содержат отрицательных элементов - Pascal(Паскаль)
- Отсортировать элементы квадратной вещественной матрицы размерности n, применив пузырьковую сортировку слева…
- Нахождение экстремума функции методом Фибоначчи - Pascal(Паскаль)
- Перевод из десятеричной в шестнадцатеричную - Pascal(Паскаль)
- Задана последовательность чисел N1,N2,N3,N4. Составить программу вычисления количества (K) положительных чисел,…
- Функция вычисления ArcSin - Pascal(Паскаль)
- Перечислить все слова заданного предложения, которые состоят из тех же букв что и первое слово предложения -…
- Вычислить элементы матрицы X по формуле x(i;j)=(i+j)^3+3ij* cos i, Где i=1,2….5; J=1,2….8. Найти…