// PascalABC.NET 3.1, сборка 1230 от 27.04.2016 begin var s:=ReadLines('in.txt').ToArray; var n:=StrToInt(s[0]); var a:=s[1].ToWords.Select(e->StrToInt(e)).ToArray; var f:=OpenWrite('out.txt'); Writeln(f,n,' - (кол-во чисел)'); foreach var e in a do Write(f,e,' '); Writeln(f); Writeln(f,'Среднее значение четных ', a.Where(x->x.IsEven).Average); Writeln(f,'Среднее значение нечетных ', a.Where(x->x.IsOdd).Average); f.Close end.
1 задача. var a, b, c: integer; begin write('Введите через пробел три числа: '); readln(a, b, c); if (a > b) then if (b > c) then write('Сумма двух наибольших чисел: ', a + b) else write('Сумма двух наибольших чисел: ', a + c) else if (c > a) then write('Сумма двух наибольших чисел: ', c + b) else write('Сумма двух наибольших чисел: ', b + a) end.
2 задача. var x, f: real; begin write('Введите значение x: '); readln(x); if (x > 0) then f := (2 - x) / (x * x) else f := 6 - (x * x * x); writeln('Значение функции при данном x: ', f) end.
3 задача. var a, b: integer; write('Введите через пробел два числа: '); readln(a, b); writeln('Сумма чисел: ', a + b); writeln('Разность чисел: ', a - b); writeln('Произведение чисел: ', a * b) end.
Объяснение:
Выводит на экран sister 1 вариант ответа