Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
14 октября 2022 18:45
1192
Дан массив из десяти целых чисел. Определите, сколько элементов этого массива имеют максимальное значение
1
ответ
var
m: array [1..10] of integer;
max, k, i: integer;
begin
for i := 1 to 10 do
read(m[i]);
max := m[1];
k := 1;
for i := 2 to 10 do
if m[i] > max then
begin
k := 1;
max := m[i]
end
else
if m[i] = max then
inc(k);
write(k)
end.
m: array [1..10] of integer;
max, k, i: integer;
begin
for i := 1 to 10 do
read(m[i]);
max := m[1];
k := 1;
for i := 2 to 10 do
if m[i] > max then
begin
k := 1;
max := m[i]
end
else
if m[i] = max then
inc(k);
write(k)
end.
0
·
Хороший ответ
14 октября 2022 18:45
Остались вопросы?
Еще вопросы по категории Информатика
Вычислите сколько байтов занимает на CD одна минута стереозаписи(частота дискретизации 44000 разрядность 16 битов) Какова максимальная продолжительнос...
8. Строки электронной таблицы: а) именуются пользователем произвольным образом; б) обозначаются буквами русского алфавита А... Я; в) обозначаются букв...
Сколько секунд потребуется модему, передающему сообщения со скоростью 32000 бит/с, чтобы передать 16-цветное растровое изображение размером 800х600 пи...
Пропускная способность некоторого канала связи равна 128 000 бит/с. Сколько времени займёт передача по этому каналу файла объемом 1,5 Мбайт?...
Помогите пожалуйста нужно СРОЧНО! 1.Приведите примеры знаковых систем. Какова может быть физическая природа знаков? 2.В чем состоит различие между ес...