Question

Нужна программа на паскале Нужно вводить последовательность с клавиатуры( конец ввода 0) с помощью while, найти порядковый номер первого из чисел с максимальным значением Т.е например на ввод 6 5 9 7 9 0 Вывод 3 Вроде легко, но никак не могу написать, чтобы корректно работало

Answer 1

Ответ:

var a,m,k,p:integer;

begin

read(a);

m:=a;

k:=1;

p:=1;

while a<>0 do

begin

if a>m then

begin

m:=a;

p:=k

end;

k:=k+1;

read (a)

end;

writeln (p)

end.

Answer 2

Для решения данной задачи на языке Паскаль можно использовать следующий алгоритм:

1. Объявляем переменные: `num` для вводимых чисел, `maxNum` для максимального значения, `maxPosition` для порядкового номера первого числа с максимальным значением. Инициализируем `maxNum` и `maxPosition` значением -1.

2. Считываем первое число с клавиатуры в переменную `num`.

3. Используем цикл `while` для получения последовательности чисел с клавиатуры. Проверяем, что число `num` не равно 0 (конец ввода). Внутри цикла:

3.1. Проверяем, является ли `num` больше текущего максимального значения `maxNum`. Если да, то обновляем `maxNum` значением `num`, а `maxPosition` - текущим порядковым номером.

3.2. Считываем следующее число с клавиатуры в `num`.

4. После завершения цикла, выводим значение переменной `maxPosition`.

Приведу пример программы на языке Паскаль:

```pascal
program FindMaxNumberPosition;

var
num, maxNum, maxPosition, currentPosition: integer;

begin
maxNum := -1;
maxPosition := -1;
currentPosition := 1;

writeln('Введите числа последовательности (для завершения введите 0):');

readln(num);

while num <> 0 do
begin
if num > maxNum then
begin
maxNum := num;
maxPosition := currentPosition;
end;

currentPosition := currentPosition + 1;
readln(num);
end;

writeln('Порядковый номер первого числа с максимальным значением: ', maxPosition);

end.
```

После запуска программы, она будет последовательно просить пользователя ввести числа, пока не будет введен 0. Затем программа выведет порядковый номер первого числа с максимальным значением из введенной последовательности. В вашем примере ввод "6 5 9 7 9 0" выведет `3`.