Текст программы. { Программа Лабораторной работы N 3

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