Откройте свой Мир!

unknown,

29-03-2009 23:20

Это спам

помогите решить задачки если не сложно

Нравится

Написать комментарий

Рейтинг

30-03-2009 11:48 (ссылка)

Re: помогите решить задачки если не сложно

1) max:=-maxlongint;
for i:=1 to 10 do
if a[i]>max then max:=a[i];
2) min:=maxlongint;
for i:=1 to 10 do
if a[i]

30-03-2009 11:50 (ссылка)

Re: помогите решить задачки если не сложно

2)min:=maxlongint;
for i:=1 to 10 do
if (a[i]>0)and(a[i]0)and(a[i]

Написать комментарий