Главная » Опишите на русском языке.. алгоритм подсчета числа...
18:25

Опишите на русском языке.. алгоритм подсчета числа...


Задание:

Опишите на русском языке или одном из языков программирования алгоритм подсчета числа элементов, равных максимальному, в числовом массиве из 30 элементов

Решение:

Выделяем целочисленные переменные k и max; в k будем хранить количество элементов, равных максимальному, а в max – значение максимального элемента. В k записываем начальное значение 1, а в max – значение первого элемента. В цикле рассматриваем все элементы массива со второго до последнего. Если текущий элемент равен переменной max, то увеличиваем счетчик k. Если текущий элемент больше max, то нашли новый максимальный элемент, запоминаем его значение в переменной max, а в счетчик k записываем единицу. В конце цикла в k записано количество элементов, равных максимальному.

  1. const N=30;
  2. var a:array[1..N] of integer;
  3.     max, k, i: integer;
  4. begin
  5.   for i:=1 to N do readln(A[i]);
  6.   k:=1;
  7.   max:=a[1];
  8.   for i:=2 to N do begin
  9.     if a[i]=max then k:=k+1;
  10.     if a[i]>max then begin
  11.       max:=a[i];
  12.       k:=1
  13.     end
  14.   end;
  15.   writeln(k)
  16. end.

Похожие материалы:
Нашли ошибку на сайте? Напишите в комментариях!
Категория: Язык программирования: Паскаль | Просмотров: 58 | Добавил: Ученик | Рейтинг: 5.0/1