Опишите на языке pascal алгоритм подсчета числа элементов, равных максимальному, в числовом массиве из 30 элементов
Более простым способом,если можно,пожалуйста!!!
10 класс
Ответы на вопрос
Ответил kitchenrecords
0
// Предполагаем, что первый
// это максимальный элемент
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;
// это максимальный элемент
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;
Ответил gorynych777
0
а всё-таки моё решение выбрали лучшим
Ответил kitchenrecords
0
ну наверно потому что твой вариант компилируется) а я просто алгоритм описал
Новые вопросы