Вычислить среднее арифметическое элементов массива, меньших 5 - Pascal
Формулировка задачи:
Дан массив целых чисел размером 4*4. Вычислить среднее арифметическое элементов меньше 5 и количество элементов больших 5
Решение задачи: «Вычислить среднее арифметическое элементов массива, меньших 5»
textual
Листинг программы
const
N = 4;
var
ar: Array[1..N, 1..N] Of ShortInt;
i, j: 1..N;
countLess, countMore: 1..N*N;
avr: Real;
begin
avr := 0; countLess := 0; countMore := 0;
Randomize; WriteLn('Original matrix:');
for i := 1 to N do
begin
for j := 1 to N do
begin
ar[i, j] := Random(199) - 99;
Write(ar[i, j]:4);
if (ar[i, j] > 5)
then
Inc(countMore)
else
if (ar[i, j] < 5)
then
begin
Inc(countLess);
avr := avr + ar[i, j];
end;
end;
WriteLn;
end;
WriteLn; WriteLn('Count >5: ', countMore);
if (countLess <> 0)
then
WriteLn('AVR = ', (avr / countLess):0:2)
else
WriteLn('No one less than 5');
end.
Объяснение кода листинга программы
- Создание константы N со значением
4. - Объявление массива ar размерности [1..N, 1..N] типа ShortInt для хранения целочисленных значений.
- Объявление переменных i, j для циклов от 1 до N.
- Объявление переменных countLess и countMore для подсчета элементов массива, меньших и больших 5, со значениями
0. - Объявление переменной avr типа Real для вычисления среднего арифметического.
- Присвоение начальных значений переменным: avr = 0, countLess = 0, countMore = 0.
- Инициализация генератора случайных чисел.
- Вывод сообщения
Original matrix:. - Вложенный цикл перебора элементов массива с присвоением случайных значений и их выводом. При этом считается количество элементов больших, меньших и вычисляется среднее значение меньших чем 5 элементов.
- Вывод количества элементов больших 5.
- Если количество элементов меньших 5 не равно 0, выводится среднее арифметическое этих элементов, иначе сообщение
No one less than 5.