Текст программы

PROGRAM laborator_N_3;

{ Программа Лабораторной работы N 3

Вариант N 31.

гр. Я-007, ст. Умненькая И.Я. }

VAR N,Num,i:integer;

A:real;

LABEL vvod;

BEGIN { Выполняемый блок.

Первый раздел - ввод данных }

vvod: writeln('Сколько будет чисел?');

readln(N);

if N < 1 then

begin

writeln('Нельзя рассматривать меньше 1 числа');

goto vvod;

end;

{ Основной раздел - поиск номера }

Num:= -1; {задание признака отсутствия подходящих чисел}

for i:=1 to N do

begin

writeln('Введите очередное число');

readln(A);

if A > 10.5 then { если число удовлетворяет

условию задачи }

Num:=i; { запоминаем его номер }

end;

{ Раздел вывода результатов поиска }

if Num=-1 then writeln('Подходящих чисел не было')

else

writeln('Номер последнего числа,>10.5 равен ',

Num);

END.

Варианты заданий

Таблица 15. Варианты заданий лабораторной работы № 3