Пользователь вводит 12 чисел. Найти наименьшее число среди элементов с третьего по десятый включительно. На языке паскаль
Ответы
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
(1v1)^(0v1) сколько будет?
Автор: natalya2321
Учитель сама придумывает задания
Автор: gk230650
(в профиле есть другие аналогичные )
Автор: inainainainaina0073
Решить! если можно с объяснением
Автор: olofinskayae
Различные модели одного и того же явления, объекта или процесса из разных предметных областей
Автор: Zezyulinskii Fedor
program v1;
var a:array[1..12]of integer;
min,i:integer;
begin
for i:=1 to 12 do
readln(a[i]);
for i:=1 to 12 do write(a[i]:3); writeln;
min:=a[3];
for i:=1 to 12 do if (a[i]<min) and (i>2) and (i<11) then min:=a[i];
writeln('min=', min);
end.