результаты соревнований по плаванию для N спортсменов хранятся в массиве K. Выбрать и напечатать лучший из них. Массив заполнить с клавиатуры.
10-11 класс
|
const
N = 5; {количество спортсменов}
var
K : array [1..N] of integer;
i, max : integer;
begin
for i := 1 to N do
begin
write('Результат спортсмена номер: ', i, ': ');
readln(K[i]);
end;
max := K[1];
for i := 2 to N do
if K[i] > max then
max := K[i];
writeln('Максимальный результат: ', max);
end.
Другие вопросы из категории
представлен вид экрана во время работы программы, который вам нужно реализовать:
Таблица квадратов
-----------------------------
Число Квадрат
-----------------------------
1 1
2 4
и т.д.
Читайте также
элемент массива определяет номер участника, четный — результат. Определите и выведите на экран лучший и худший результаты с номерами спортсменов.
Один элемент массива соответствует количеству очков, набранных одним участником соревнований, и имеет значение от 0 до 30 включительно. Необходимо разработать программу, которая по данным массива вычисляет максимальное количество очков среди участников соревнований, и количество участников набравшее зачётное количество очков. Зачётное количество очков 18. Гарантируется, что хотя бы один участник соревнований набрал зачётное количество очков.
зованием минимально возможного количества битов, одинакового для каждого спортсмена. Каков будет информационных объем сообщения (в байтах), записанного устройством, после того, как финишируют 200 спортсменов?
В соревнованиях по плаванию принимают участие N спортсменов. Ввести их результаты и определить лучший результат.
Решить через While или For, в паскале.
Какой размер в битах будет иметь файл, в котором зарегистрированы номера 42 спортсменов, пересекших финиш?