Помогите, пожалуйста составить программу Object Paskal

[Ljale4ka]

В компьютер вводится N вещественных чисел. Составить программу, выдающую на экран сумму наименьшего и наибольшего из них.

[Qiker]

Ljale4ka,

program hh;
uses crt;
const n=10;
var
a:array[1..n] of integer;
min,max,i,s:integer;
begin
clrscr;
for i:=1 to n do
begin
a[i]:=random(50)-10;
write(a[i]:3);
end;
writeln;

begin
max:=a[1];
for i:=1 to n do  begin
 if max<a[i] then
  max:=a[i];
  end;
  write('max=',max);
end;
writeln;
begin
min:=a[1];
for i:=1 to n do  begin
 if a[i]<min then
  min:=a[i];
  end;
  write('min=',min);
end;
writeln;

s:=0;
begin
s:=min+max;
end;
write('s=',s);
end.

[Ljale4ka]

Qiker, безмерно благодарна за помощь, не представляю как бы я справлялась сама с заданием!!!

[Qiker]

обращайтесь))))))))))

[Макаревич]

Qiker, в условии задачи написано, что вводятся вещественные числа, а в массиве указан целочисленный тип переменных. Или я чет не так понял??

[Qiker]

Макаревич, ну вроде возражений не было от
Ljale4ka значит все правильно.

ну а если нет то можно по пробовать вот так
program hh;
uses crt;
const n=10;
var
a:array[1..n] of real;
i:integer;
s,min,max:real;
begin
clrscr;
for i:=1 to n do
begin
read(a[i]);
end;
writeln;
begin
max:=a[1];
for i:=1 to n do begin
if max<a[i] then
max:=a[i];
end;
write('max=',max);
end;
writeln;
begin
min:=a[1];
for i:=1 to n do begin
if a[i]<min then
min:=a[i];
end;
write('min=',min);
end;
writeln;
s:=0;
begin
s:=s+max;
s:=s+min;
end;
write('s=',s);
readln
end.

---------- Добавлено в 09:32 ---------- Предыдущее сообщение было написано в 09:23 ----------

ДА, еще я нигде не обучался(только в этом году поступаю), кроме школьного курса, но там мы изучали совсем не много, так что все что могу))

[рустам939]

помогите устронить неполадки со звуком

[piton331]

Сообщение от рустам939

неполадки со звуком

Как это понимать ? Для начала читайте http://pchelpforum.ru/f33/t32020/

[Гризлик]

Сообщение от рустам939

помогите устронить неполадки со звуком

И причем здесь Програмирование???