Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 865 б
14 октября 2022 18:45
1065
Дан массив из десяти целых чисел. Определите, сколько элементов этого массива имеют максимальное значение
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
Остались вопросы?
Еще вопросы по категории Информатика
Составьте алгоритм вычисления суммы всех натуральных чисел, не превышающих заданного натурального числа N. Напишите программу на Паскале....
5байт = ? бит; 8байт = ? бит; 2кб = ? байт; 1,5кб = ? байт; 1кб = ? бит; 2,5кб = ? бит...
Придумайте и изобразите в виде графа структуру одного из следующих сайтов а) наш класс б) моя семья в) информатика...
Примером иерархической базы данных является а) Страница классного журнала б) Каталог файлов, хранимых на диске в) Расписание поездов г) Электронная...
Какой логический элемент изображён на рисунке? дизъюнктор конъюнктор инвертор импликатор...