Опишите на языке pascal алгоритм подсчета числа элементов, равных максимальному, в числовом массиве из 30 элементовБолее простым способом,если можно,пожалуйста!!!10 класс
Опишите на языке pascal алгоритм подсчета числа элементов, равных максимальному, в числовом массиве из 30 элементов
Более простым способом,если можно,пожалуйста!!!
10 класс
Гость
Ответ(ы) на вопрос:
Гость// Предполагаем, что первый
// это максимальный элемент
v := a[1]; // значение максимального
n := 1; // число равных максимальному
for i := 2 to 30 do begin
// Если текущий элемен равен максимальному,
// то увеличим число
if a[i] = v then
n := n + 1
else if a[i] > v then
begin
// если текущий больше максимального,
// то скинем счетчик и запомним значение
n := 1;
v := a[i];
end;
end;
Гостьvar
max,k:integer;
a:array[1..30] of integer;
procedure vvodmassiva;
begin
var i:integer;
for i:=1 to 30 do
begin
read(a[i]);
write(' ')
end
end;
procedure poiskmax;
var i:integer;
begin
max:=a[1];
for i:=2 to 30 do
if a[i]>max then max:=a[i]
end;
procedure poiskkol;
var i:integer;
begin
k:=0;
for i:=1 to 30 do
if a[i]=max then k:=k+1;
end;
begin
vvodmassiva;
poiskmax;
poiskkol;
write(k)
end.
Не нашли ответ?
Похожие вопросы