Подсчет количества максимальных массивов - Pascal ABC
Формулировка задачи:
Доделать для подсчета количества максимальных массивов. Заранее спасибо)))
Решение задачи: «Подсчет количества максимальных массивов»
textual
Листинг программы
uses crt;
var
i,max,lmax,c:integer;
a:array[1..10] of integer;
begin
for i:=1 to 10 do
read(a[i]);
max:=a[1];
lmax:=1;
for i:=2 to 10 do
if max<a[i] then
begin
lmax:=i;
max:=a[i];
end;
writeln;
writeln('Наибольший элемент a[',lmax,']=',[max]);
c:=0;
for i:=1 to 10 do
if a[i]=max then
c:=c+1;
writeln('Количество максимальных массивов = ',c);
end.
Объяснение кода листинга программы
- В начале кода подключается библиотека crt, которая используется для ввода и вывода данных.
- Переменные i, max, lmax и c объявляются целочисленными типами.
- Переменная a объявляется массивом целых чисел длиной от 1 до 10.
- С помощью цикла for происходит ввод всех элементов массива a.
- Переменная max инициализируется значением первого элемента массива a.
- Переменная lmax инициализируется значением первого элемента массива a.
- Затем происходит сравнение каждого следующего элемента массива a с максимальным значением max.
- Если текущий элемент больше max, то переменная lmax обновляется, указывая на индекс текущего элемента, а переменная max обновляется значением текущего элемента.
- После завершения внутреннего цикла for происходит вывод на экран строки
Наибольший элемент a[, lmax,]=, [max]. Здесь [max] представляет собой значение переменной max. - Затем переменной c инициализируется значение 0.
- С помощью цикла for происходит проверка каждого элемента массива a на равенство максимальному значению max.
- Если текущий элемент равен max, то переменная c увеличивается на 1.
- По завершении внешнего цикла for выводится на экран строка
Количество максимальных массивов =, c. Здесь c представляет собой значение переменной c.