03.06.2011, 15:36 | #1 (permalink) |
Новичок
Регистрация: 19.05.2011
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите с программой в Паскале
заранее спасибо. |
03.06.2011, 15:36 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Отправлю вам список похожих обсуждений Помогите с программой Помогите с программой на Паскале Помогите, пожалуйста, с программой в Паскале |
04.06.2011, 08:01 | #2 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
Код:
uses crt; var n,i:integer; mas: array[1..10000] of real; min, max:real; begin readln(n); for i:=1 to n do readln(mas[i]); clrscr; min:=mas[0]; max:=mas[0]; for i:=1 to n do begin write(mas[i]:4:6); if mas[i]<min then min:=mas[i]; if mas[i]>max then max:=mas[i]; end; writeln; for i:=1 to n do begin if mas[i]=0 then mas[i]:=max; if mas[i]=min then mas[i]:=0; write(mas[i]:4:6); end; writeln; readln; end.
__________________
Убить всех человеков! |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|