Const n=50;
var B:array[1..n] of integer; i:byte;x:integer;
begin
x:=1;
for i:1 to n do
begin
B[i]:=x;
x:=x+3;
end;
end.
1.
1)ячейка
2) граница
3)столбец
4)строка
2.
1)добавить
2)обьединить
3)удалить
В виде таблицы не умею вот паскаль.
Program v;
var x, y:integer;
begin
for x:= -2 to 2 do y=x*(sqr(x))-sqr(x)+2*sqrt(x);
writeln(x,y);
end.
From random import randint
a=[]
x=0
y=0
for i in xrange(15):
value=randint(-50, 50)
if not value%2: y+=value
else: x+=value
a.append(value)
<span>print "Исходный массив: %s, Сумма чётных: %i, Сумма нечётных: %i, По модулю больше: %i".decode("utf-8")%(a, x, y, max(abs(x), abs(y)))</span>