Readln (n); //Пользователь вводит число. Переменной n присваивается введённое значение
min:= 30001;//Переменной min присваивается указанное значение
For i:= 1 to n do Begin//Запускается цикл, который будет повторятся n раз
Readln (a);//Цикл.Пользователь вводит число. Переменной a присваивается введённое значение
If a<min then min:=a;//Цикл. Значение a сравнивается со значением min, если значение a меньше, то переменной min присваивается значение переменной a
End;//Конец цикла
Writeln (min);//Вывод на экран последнего значения min
А всё вместе это поиск минимального числа из введённых пользователем. Количество чисел, которые должен будет ввести пользователь определяется n. Видимо по условию числа вводимые пользователем должны быть меньше 3001.
7.
Readln (n); //Пользователь вводит число. Переменной n присваивается введённое значение
max:= 0;//Переменной max присваивается указанное значение
For i:= 1 to n do Begin//Запускается цикл, который будет повторятся n раз
Readln (a);//Цикл.Пользователь вводит число. Переменной a присваивается введённое значение
If a>max then max:=a;//Цикл. Значение a сравнивается со значением min, если значение a больше, то переменной max присваивается значение переменной a
End;//Конец цикла
Writeln (max);//Вывод на экран последнего значения max
А всё вместе это поиск максимального числа из введённых пользователем. Количество чисел, которые должен будет ввести пользователь определяется n.
8.
Readln (n); //Пользователь вводит число. Переменной n присваивается введённое значение
For i:= 1 to n do Begin//Запускается цикл, который будет повторятся n раз
Readln (a);//Цикл.Пользователь вводит число. Переменной a присваивается введённое значение
If (a>=10) and (a<=99) then k:=k+1;//Цикл. Если значение a больше или равно 10 и, одновременно, меньше или равно 99, то переменная k увеличивается на 1
End;//Конец цикла
Writeln (k);//Вывод на экран последнего значения k
А всё вместе это счёт количества двузначных чисел, введённых пользователем. Количество чисел, которые должен будет ввести пользователь определяется n.
Answers & Comments
6.
Readln (n); //Пользователь вводит число. Переменной n присваивается введённое значение
min:= 30001;//Переменной min присваивается указанное значение
For i:= 1 to n do Begin//Запускается цикл, который будет повторятся n раз
Readln (a);//Цикл.Пользователь вводит число. Переменной a присваивается введённое значение
If a<min then min:=a;//Цикл. Значение a сравнивается со значением min, если значение a меньше, то переменной min присваивается значение переменной a
End;//Конец цикла
Writeln (min);//Вывод на экран последнего значения min
А всё вместе это поиск минимального числа из введённых пользователем. Количество чисел, которые должен будет ввести пользователь определяется n. Видимо по условию числа вводимые пользователем должны быть меньше 3001.
7.
Readln (n); //Пользователь вводит число. Переменной n присваивается введённое значение
max:= 0;//Переменной max присваивается указанное значение
For i:= 1 to n do Begin//Запускается цикл, который будет повторятся n раз
Readln (a);//Цикл.Пользователь вводит число. Переменной a присваивается введённое значение
If a>max then max:=a;//Цикл. Значение a сравнивается со значением min, если значение a больше, то переменной max присваивается значение переменной a
End;//Конец цикла
Writeln (max);//Вывод на экран последнего значения max
А всё вместе это поиск максимального числа из введённых пользователем. Количество чисел, которые должен будет ввести пользователь определяется n.
8.
Readln (n); //Пользователь вводит число. Переменной n присваивается введённое значение
For i:= 1 to n do Begin//Запускается цикл, который будет повторятся n раз
Readln (a);//Цикл.Пользователь вводит число. Переменной a присваивается введённое значение
If (a>=10) and (a<=99) then k:=k+1;//Цикл. Если значение a больше или равно 10 и, одновременно, меньше или равно 99, то переменная k увеличивается на 1
End;//Конец цикла
Writeln (k);//Вывод на экран последнего значения k
А всё вместе это счёт количества двузначных чисел, введённых пользователем. Количество чисел, которые должен будет ввести пользователь определяется n.