Цепочка на четырех бусін, помеченых лаписатми бушами, формируются по следующему правилу
1) в начале - одна из бусин b,c,d, которой нет на чего сртом месте
2) на втором месте стоит одна из бустон bab
3) на третьем месте - одна из бусин е.с.d. не стоящая на первом месте
4) в конце - одна из бусин a,c,e, которой нет на втором месте.
выберите цеочади, созданные по этому правилу.​

1)
program gt;
var a,i:integer;
begin
for i:=1 to 100 do
begin
writeln(i,' ',i*400);
end;
end.
2)
program gt;
var a:array[1..100,1..100]of integer;
i,j,s:integer;
begin
randomize;
for i:=1 to 5 do
for j:=1 to 5 do
a[i,j]:=random(100)-50;
s:=0;
for j:=1 to 5 do
s:=s+a[1,j];
for i:=1 to 5 do
begin
for j:=1 to 5 do
write(a[i,j],' ');
writeln;
end;
writeln;
for i:=1 to 5 do
begin
for j:=1 to 5 do
begin
if(a[i,j]<0)then a[i,j]:=s;
write(a[i,j],' ');
end;
writeln;
end;
end.
3)
program gt;
var a,b:array[1..15]of integer;
i,j,s:integer;
begin
randomize;
for i:=1 to 15 do
a[i]:=random(100)-50;
for i:=1 to 15 do
begin
read(j);
b[i]:=a[i]+j;
end;
for i:=1 to 15 do
write(a[i],' ');
writeln;
for i:=1 to 15 do
write(b[i],' ');
end.

1.
алг сумма
нач цел sum=0,i, цел таб a[1:5]
вывод "Введите 5 элементов массива:"
нц для i от 1 до 5
ввод a[i]
кц
нц для i от 1 до 5
sum:=sum+a[i]
кц
вывод sum
кон
2.
алг произведение
нач цел mult=1,i, цел таб a[1:5] 
вывод "Введите 5 элементов массива:" 
нц для i от 1 до 5 
ввод a[i] 
кц 
нц для i от 1 до 5 
mult:=mult*a[i] 
кц 
вывод mult
кон
3.
алг максимум
нач цел макс,i, цел таб a[1:5]
вывод "Введите 5 элементов массива:"
нц для i от 1 до 5
ввод a[i]
кц
макс:=a[1]
нц для i от 2 до 5
если a[i]>макс то
макс:=a[i]
все
кц
вывод макс
кон