//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016) begin var a := ArrRandom(20, 1, 100); a.Println; Println('Минимальный', a.Min, 'Максимальный', a.Max); end.
// PascalABC.NET 3.3, сборка 1540 от 16.09.2017 // Внимание! Если программа не работает, обновите версию!
begin var L:=ReadSeqInteger('Введите через пробел три цифры',3).ToList; if L.All(x->x=0) then Writeln('Хотя бы одна цифра должна отличаться от нуля') else if L.All(x->x.IsOdd) then Writeln('Хотя бы одна цифра должна быть четной') else begin var d3:=L.Where(x->x.IsEven).Min; L.RemoveAt(L.FindIndex(x->x=d3)); var s:=L.OrderBy(x->x); Writeln(s.Last,s.First,d3) end end.
Примеры: Введите через пробел три цифры 2 0 5 520
Введите через пробел три цифры 0 5 0 500
Введите через пробел три цифры 3 9 5 Хотя бы одна цифра должна быть четной
1. var x : array[1..1000] of integer; n,i,max,min : integer; begin write('n = '); readln(n); writeln('Исходный массив:'); for i:=1 to n do begin write('x[',i,']='); readln(x[i]); end; writeln; max:=x[1]; min:=x[1]; for i:=2 to n do begin if x[i] > max then max:=x[i]; if x[i] < min then min:=x[i]; end; writeln('max=',max,' min=',min); writeln('Среднее = ',(max+min)/2:5:2); end.
begin
var a := ArrRandom(20, 1, 100);
a.Println;
Println('Минимальный', a.Min, 'Максимальный', a.Max);
end.