Подсчет количества максимальных массивов - 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.

Объяснение кода листинга программы

  1. В начале кода подключается библиотека crt, которая используется для ввода и вывода данных.
  2. Переменные i, max, lmax и c объявляются целочисленными типами.
  3. Переменная a объявляется массивом целых чисел длиной от 1 до 10.
  4. С помощью цикла for происходит ввод всех элементов массива a.
  5. Переменная max инициализируется значением первого элемента массива a.
  6. Переменная lmax инициализируется значением первого элемента массива a.
  7. Затем происходит сравнение каждого следующего элемента массива a с максимальным значением max.
  8. Если текущий элемент больше max, то переменная lmax обновляется, указывая на индекс текущего элемента, а переменная max обновляется значением текущего элемента.
  9. После завершения внутреннего цикла for происходит вывод на экран строки Наибольший элемент a[, lmax, ]=, [max]. Здесь [max] представляет собой значение переменной max.
  10. Затем переменной c инициализируется значение 0.
  11. С помощью цикла for происходит проверка каждого элемента массива a на равенство максимальному значению max.
  12. Если текущий элемент равен max, то переменная c увеличивается на 1.
  13. По завершении внешнего цикла for выводится на экран строка Количество максимальных массивов =, c. Здесь c представляет собой значение переменной c.

Оцени полезность:

5   голосов , оценка 4.2 из 5
Похожие ответы