Дан массив из десяти целых чисел. Напишите программу Pascal подсчёта количества элементов этого массива, имеющих максимальное значение. Данные задайте самостоятельно.
«Дан массив из десяти целых чисел. Напишите программу Pascal подсчёта количества элементов этого массива, имеющих максимальное значение. Данные задайте самостоятельно.»
- Информатика
Условие:
Дан массив из десяти целых чисел.
Напишите программу Pascal подсчёта количества элементов этого массива, имеющих максимальное значение.
Данные задайте самостоятельно.
Решение:
Код программы:
PROGRAM program8;
VAR
i,max,kol: integer;
mas: array[1..10] of integer;
BEGIN
kol:=0;
//Заполнение массива.
for i:=1 to 10 do
begin
mas[i]:=random(0,10);
write(mas[i],' ');
end;
//Поиск максимального элемента в массиве.
max:=mas[1];
for i:=1 to 10 do
begin
if (mas[i] = max) then m...
Похожие задачи
Не нашел нужную задачу?
Воспользуйся поиском
AI помощники
Выбери предмет
S
А
Б
В
Г
И
К
М
П
- Правоохранительные органы
- Пожарная безопасность
- Парикмахерское искусство
- Природообустройство и водопользование
- Почвоведение
- Приборостроение и оптотехника
- Промышленный маркетинг и менеджмент
- Производственный маркетинг и менеджмент
- Процессы и аппараты
- Программирование
- Право и юриспруденция
- Психология
- Политология
- Педагогика
С
Т
- Трудовое право
- Теория государства и права (ТГП)
- Таможенное право
- Теория игр
- Теория вероятностей
- Теоретическая механика
- Теория управления
- Технология продовольственных продуктов и товаров
- Технологические машины и оборудование
- Теплоэнергетика и теплотехника
- Туризм
- Товароведение
- Таможенное дело
- Торговое дело
- Теория машин и механизмов
- Транспортные средства
Ф
Э