Question

Пользователь вводит 19 чисел.Найти наименьшее число среди элементов с пятого по тринадцатый включительно.

Answer 1

Программа:

Pascal:

var

 arr: array[1..19] of integer;

 i, min: integer;

begin

 min := MAXINT;

 writeln('Введите числа: ');

 for i := 1 to 15 do readln(arr[i]);

 for i := 5 to 13 do if arr[i] < min then min := arr[i];  

 writeln('Минимальный элемент с 5 по 13: ', min);

end.