1. "Минимальное из 10 чисел". Напишите программу для ввода десяти целых чисел и вывода минимального из них. Входные данные: десять целых чисел Выходные данные: min Пример ввода: 9 10 478 5 7 5 5678 4 777 3 Пример вывода: 3
var a,min,i : longint; begin readln(min); for i:=2 to 10 do begin readln(a); if a<min then min:=a; end; writeln(min); end.
2. "Минимальное из n чисел". Напишите программу для ввода n целых чисел и вывода минимального из них. Входные данные: n n целых чисел Выходные данные: min Пример ввода: 6 10 478 5 7 5 5678 Пример вывода: 5
var n,a,min,i : longint; begin readln(n); readln(min); for i:=2 to n do begin readln(a); if a<min then min:=a; end; writeln(min); end.
3. "Максимальное из 10 чисел". Напишите программу для ввода десяти целых чисел и вывода максимального из них.
Входные данные: десять целых чисел Выходные данные: max Пример ввода: 9 10 478 5 7 5 5678 4 777 3 Пример вывода: 5678
var a,max,i : longint; begin readln(max); for i:=2 to 10 do begin readln(a); if a>max then max:=a; end; writeln(max); end.
2. "Максимальное из n чисел". Напишите программу для ввода n целых чисел и вывода максимального Входные данные: n n целых чисел Выходные данные: max Пример ввода: 6 10 478 5 7 5 5678 Пример вывода: 5678
var n,a,max,i : longint; begin readln(n); readln(max); for i:=2 to n do begin readln(a); if a>max then max:=a; end; writeln(max); end. |