Задача в Pascal - Найти максимальное значения в последовательности вводимых чисел

[Кирилл Дмитриевич]

Помогите написать задачу в Pascal, запутался в обозначениях. На фото задание № 5. Главное придерживаться правилам написания, как в примере на фото.

Задача: Найти максимальное значения в последовательности вводимых чисел. При поиске пропускать числа из диапазона от 10.1 до 50.1.

Заранее спасибо громное!

[Serge_Bliznykov]

Вам костяк программы уже полностью дан.
только нужно внутренность цикла ЧУТЬ-ЧУТЬ изменить и всё, программа готова!

[Кирилл Дмитриевич]

Вот я пытаюсь, а программа все равно дает сбой, уж не знаю что не так.
Можете пояснить?

[Sciv]

Можете пояснить?

Можем, если Вы хотя бы скажете, какой именно сбой дает программа

[Serge_Bliznykov]

НУ и какую помощь Вы ждёте? Телепатов?
давайте сюда Вашу программу, посмотрим, что Вы там наворотили

[Кирилл Дмитриевич]

Вот серединка:

begin
write('vvod kolich chisel=');
readkn(k);
readln(max);
a:=1;
repeat
write('vvod chisla=');
readln(b);
if (b>50.1) or (b<10.1) then
if max<b then max:=b;
a:=a+1;
until a=k;
writeln('maksimalnoe=',max);

Или не все числа принимает, или есле чуть подругому прописать, то когда вводишь например что будет 4 числа, после этого хоть 1000 чисел вводи, ничего не поменяется(

[Sciv]

А чего объявление переменных не выложили? Может, как раз из него ноги растут.

И еще -какие данные вводите? Я код у себя проверил - нормально работает.

И кстати, чтобы у Вас вводились именно k чисел, должно быть a:=0;