А) 10 ячеек (5строк*2столбца)
в) 130 ячеек (ячейки в одном столбце, значит 153-23=130)
В) 9 ячеек (3 столюца* 3 строки)
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ReadArrInteger(10);
var s:=a.Where(t->t>0); // последовательность положительных
Writeln('Положительных: ',s.Count);
Writeln('Максимальный: ',a.Max);
Writeln('Сумма положительных: ',s.Sum);
Writeln('Ср.арифм. положительных: ',s.Average);
a.Transform(t->t.IsEven?2*t:t+1); a.Println
end.
<u>Пример</u>
-6 28 31 83 -25 -17 8 0 11 13
Положительных: 6
Максимальный: 83
Сумма положительных: 174
Ср.арифм. положительных: 29
-12 56 32 84 -24 -16 16 0 12 14
Program maxmin;
var x, y, z: integer;
max, min: integer;
begin
readln(x, y, z);
max:=x+y+z;
if x*y+z>max then max:=x*y+z;
if sqr(x)+sqr(y)-z > max then max:=sqr(x)+sqr(y)-z;
writeln(max);
min:=<span>x+y+1;
</span>if x*y*z<min then min:=x+y+1;
write(min+1);
end.
program z1;
var
x,y,z,a,b,c:real;
begin
x:=2;
y:=0.3;
z:=0.5;
a:=x-y;
b:=x/y;
c:=z*x;
if a > b
then begin
if a < c
then write ('Наибольшее', c)
else write ('Наибольшее', a)
end;
else write ('Наибольшее', b);
end.