Показать сообщение отдельно
Старый 19.12.2011, 19:19   #1 (permalink)
VIQ
Новичок
 
Регистрация: 19.12.2011
Сообщений: 6
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: -1
Exclamation Создать приложение "Lazarus"

Туристы вышли из леса на шоссе неподалеку от километрового столба с отметкой А км и решили пойти на ближайшую автобусную остановку. Посмотрев на план местности, руководитель группы сказал, что автобусные остановки расположены на километре В и на километре С. Куда следует пойти туристам?

var
a:array [8..20] of integer;
i: integer;
begin
for i:=8 to 20 do begin
writeln('vvedite temperature v i,' chasov');
readln(a[i]);
end;
for i=8 to 20 do begin
if a[i]<0 then begin
writeln('v pervii temperature upaJa nije nulya vchasov),
Break;
end;
end;
readln;
end.

создайте приложение с кнопками)
Изображения
 
VIQ вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070