Все игры
Войти Регистрация
Мы применяем рекомендательные технологии
О группе Участники Фото Видео Музыка Обсуждения
Запись
·
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]

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

Загрузка