Дан масcив из N целых чисел. Написать программу,определяющую ,сколько в массиве чисел, равных максимальному элементу массива.
1-4 класс
|
Aziza2003
09 марта 2014 г., 13:21:59 (10 лет назад)
Nadkupr
09 марта 2014 г., 16:07:58 (10 лет назад)
uses crt;
const M = 100;
var a: array [1..M] of integer;
i, max, k, n: integer;
begin clrscr;
repeat
writeln('Введите количество элементов массива');
readln(n);
until (n <> 0) and (n>0);
for i := 1 to n do
begin
writeln('Введите [', i, '] элемент массива');
readln(a[i]);
end;
for i := 1 to n do
write(' ', a[i]);
writeln;
max := a[1];
for i := 2 to n do
if a[i] > max then max := a[i];
writeln(' max= ', max);
for i := 1 to n do
if a[i] = max then k := k + 1;
writeln(' k= ', k);
end.
Ответить
Другие вопросы из категории
Читайте также
Вы находитесь на странице вопроса "Дан масcив из N целых чисел. Написать программу,определяющую ,сколько в массиве чисел, равных максимальному элементу массива.", категории "информатика". Данный вопрос относится к разделу "1-4" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.