Технический форум - Помогите с программой в Паскале

Технический форум (http://www.tehnari.ru/)

- Delphi, Kylix and Pascal (http://www.tehnari.ru/f43/)

- - Помогите с программой в Паскале (http://www.tehnari.ru/f43/t52642/)

Alexadr34

03.06.2011 15:36

Помогите с программой в Паскале

. Напишите программу на языке программирования . Даны действительные числа (а1,а2...an) (все числа различны). Замените в этой последовательности наименьший элемент 0, а все нулевые элементы наибольшим членом последовательности.
заранее спасибо.

AlexZir

04.06.2011 08:01

Код:

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.

Часовой пояс GMT +4, время: 00:22.