rusakovwn | Дата: Вторник, 2010-06-29, 2:41 PM | Сообщение # 16 |
Студент
Группа: Пользователи
Сообщений: 39
Репутация: 0
Замечания: 0%
Статус: Offline
Город: buzuluk
| прошу проверить решение Program401; uses crt; var i:integer; x,y,xmin,xmax,nmin,nmax: real; begin clrscr; readln (x); xmin:=x; xmax:=x; for i:=2 to 10 do begin readln (y); if y<xmin then begin xmin:= y; nmin:= i; end; if y>xmax then begin xmax:= y; nmax:= i; end; end; rez:= xmax-xmin; writeln ('rez=',rez); writeln ('nmin=',nmin); writeln ('nmax=',nmax); end.
tekos it is very good
|
|
| |
αdmin | Дата: Среда, 2010-06-30, 0:38 AM | Сообщение # 17 |
Профессор
Группа: Проверенные
Сообщений: 838
Репутация: 427
Замечания: 40%
Статус: Offline
| че это? прога начинаетсо со слова "Program" пробел "название" (название должно начинаться с буквы). и есчо а чо ты хател написать? че за задание? неушто в задании небыло такое понятия каг массив
|
|
| |