Задача на тему цикл с параметром Паскаль. Определить среди 10 чисел какое из них наибольшее и вывести порядковый номер этого числа.
5-9 класс
|
Program P;
Var
n, i : Integer;
max, iMax: Integer;
Begin
Write('Enter 10 numbers ');
for i := 1 to 10 do
Begin
Read(n);
if i = 1 then
Begin
max := n;
iMax := i;
End
else
if n > max then
Begin
max := n;
iMax := i;
End;
End;
WriteLn('Max = ', max);
WriteLn('index = ', iMax);
ReadLn;
End.
Другие вопросы из категории
информационный вес одного символа? сколько символов в алфавите языка, на котором записано это сообщение
Автор учебника Л .Л. Босова
Читайте также
сумму двух других,иначе треугольник не существует. Задача на тему "Программирование ветвлений на Паскале".
скоростью А км/ч, а затем сели на попутную машину, которая ехала со скоростью В км/ч. За какое время туристы добрались до озера? 2)В школьном коридоре длиной 56 м нужно выкрасить пол. Выкрасив часть коридора длиной 22 м, израсходовали А кг краски. Сколько ещё нужно краски, чтобы докрасить пол? 3)Чтобы сварить 4 порции пшенной каши, нужно взять 220 г пшена, 1 л молока и зо г сахара. Сколько потребуется этих продуктов, чтобы сварить N порций каши? Плиииз помогите. Меня на этой теме не было и ничего не понимаю!
1) в массиве 50 элементов. Определить количество чисел больше,равны и меньше нуля.
2) в массиве 20 элементов. Опеределить количество чисел,у которых:
Цифра десятков кратна 2(или просто само число кратно 2) и число больше нуля.
Решение по типу этой задачи. Числа вводятся по запуску программы.