Question

Дан массив а, состоящий из 200 элементов. Заполнить его случайными числами в диапазоне от 10 до 35. Найти максимальный элемент. Вывести его. Посчитать, сколько раз повторяется максимальный элемент в массиве. язык- паскаль

Answer 1

Ответ:

var a: array [1..200] of integer;

var max,n,i: integer;

begin

max:=1;

n:=0;

randomize();

for i:=1 to 200 do

 begin

 a[i]:=random(35-10+1)+10;

 if (a[i]>a[max]) then n:=0;  

 if (a[i]>=a[max]) then  

   begin

   max:=i;

   n:=n+1;

   end;

 end;

writeln('Максимальный элемент равен ',a[max],' и повторяется ',n,' раз');

end.

Answer 2

Для решения этой задачи на языке Pascal, мы можем создать массив из 200 элементов, заполненный случайными числами в диапазоне от 10 до 35, затем найти максимальный элемент, вывести его значение и посчитать, сколько раз он повторяется в массиве. Приведу пример кода на Pascal для решения данной задачи: ```pascal program MaxElementCount; uses crt; const arraySize = 200; minValue = 10; maxValue = 35; var a: array[1..arraySize] of integer; i, maxElement, maxCount: integer; begin // Инициализация генератора случайных чисел Randomize; // Заполнение массива случайными числами в заданном диапазоне for i := 1 to arraySize do a[i] := Random(maxValue - minValue + 1) + minValue; // Нахождение максимального элемента в массиве maxElement := a[1]; for i := 2 to arraySize do begin if a[i] > maxElement then maxElement := a[i]; end; // Вывод максимального элемента writeln('Максимальный элемент в массиве: ', maxElement); // Подсчет количества повторений максимального элемента в массиве maxCount := 0; for i := 1 to arraySize do begin if a[i] = maxElement then maxCount := maxCount + 1; end; // Вывод количества повторений максимального элемента writeln('Количество повторений максимального элемента в массиве: ', maxCount); readln; end. ``` Этот код создает массив из 200 элементов, заполняет его случайными числами в диапазоне от 10 до 35, находит максимальный элемент, выводит его значение и подсчитывает количество повторений этого элемента в массиве.