Var y,x:integer;
begin
for x:= -4 to 4 do begin
y:=sqr(x)+2;
writeln ('y=',y);
end;
end.
<span>// PascalABC.NET 3.3
// Cборка 1590 от 03.12.2017</span>
begin
var x:=ArrRandom(ReadInteger('Введите размер массива->'),-5,5); x.Println;
var y:=x.Select(t->t<0?abs(t):t); y.Println;
Println('Произведение:',x.Where(t->t<>0).Aggregate((a,b)->a*b));
end.
Пример:
Введите размер массива-> 10
1 2 -1 2 4 4 1 1 -3 2
1 2 1 2 4 4 1 1 3 2
Произведение: 384
Лінивий так-телевізор,ні-ДЗ
const m = 6; n = 4; var
i, j: integer;
a: array[1..m, 1..n] of integer;
b: array[1..n]oflongint; p: longint;
256=2^8
16=2^4
Объём файла=кол-во символов*кол-во бит на 1 символ
то есть объём увеличится в 2 раза)