кто может помочь с задачками по Паскалю?

[__STDC__]

ну и последнюю допустим так... естественно эл-тов должно быть четное кол-во:

const
	N = 10;

var
	x:array[1..N] of integer;
	i:integer;

procedure swap(var x1,x2:integer);
var
	tmp:integer;
begin
	tmp := x1;
	x1 := x2;
	x2 := tmp;
end;
	
begin
	randomize;
	for i:=1 to N do begin
		x[i] := random(5);
		write(x[i]:3);
	end;
	writeln;
	for i:=1 to N do begin
		if (x[i] = 0) and (i mod 2 = 1) then x[i] := x[i+1];
		write(x[i]:3);
	end;
	
	readln;
end.

А какая первая была?

[Defa4ka]

set of byte -это что за тип?

[Defa4ka]

__STDC__ спасибо тебе огромное!))

[__STDC__]

это множество элементов типа byte (т.е. размером в один байт =) )

__STDC__ спасибо тебе огромное!))

не за что

[Defa4ka]

а можно пояснение к процедуре swap?

[Defa4ka]

а насчет первой он был прав))

[__STDC__]

swap? меняет местами два элемента.. ну присваивает первой переменной значение второй переменной, а второй - значение первой..

[Defa4ka]

Сообщение от __STDC__

swap? меняет местами два элемента.. ну присваивает первой переменной значение второй переменной, а второй - значение первой..

можно ли мне иногда обращаться к тебе? у тя аси нет?

[__STDC__]

иногда можно... аська.. хм... лучше пиши здесь в личку или так, я каждый день на форуме... да и другие тоже если что помогут =)

[Defa4ka]

ой.. а возраст реальный? мне нуна было на Вы..