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

[Катерина Фельдман]

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

[ROMA2PVT]

Алгоритм прост:-сели;
-взяли книгу;
-изучили;
-продумали;
-и наконец написали.
Всё просто.

[Катерина Фельдман]

Спасибо большое!!!!!!!!! А книгу дашь?

[ROMA2PVT]

Это задание на массивы?

[Катерина Фельдман]

Честно, я даже и незнаю. Дали задание по информатике, а я незнаю как это делать , вот решила к специалистам обратиться!!!!!!!!!!!

[ROMA2PVT]

Ну думаю на массивы.

program matr;
uses
   crt;
var
    mas:array [1..100] of integer;
    i,n,imin,imax,min,max,razn:integer;
begin
clrscr;
imax:=1;
imin:=1;
randomize;
write('Введите количество элементов: ');
readln(n);
for i:=1 to n do
 begin
  mas[i]:=random(10)-5;
  write(mas[i]:4);
  if mas[i]>mas[imax] then
  begin
  imax:=i;
  end
  else
  if (mas[i]<mas[imin]) then
  begin
  imin:=i;
  end;
  end;
writeln;
writeln('MAX[',imax,']:=',mas[imax]);
writeln('MIN[',imin,']:=',mas[imin]);
razn:=mas[imax]+mas[imin];
writeln('Сумма MAX и MIN:=',razn);
 end.

[Катерина Фельдман]

Это все нужно переписать в паскаль???? а потом как запустить? и что должно показать?

[DRAgon™]

Сообщение от ROMA2PVT

Ну думаю на массивы.

program matr;
uses
   crt;
var
    mas:array [1..100] of integer;
    i,n,imin,imax,min,max,razn:integer;
begin
clrscr;
imax:=1;
imin:=1;
randomize;
write('Введите количество элементов: ');
readln(n);
for i:=1 to n do
 begin
  mas[i]:=random(10)-5;
  write(mas[i]:4);
  if mas[i]>mas[imax] then
  begin
  imax:=i;
  end
  else
  if (mas[i]<mas[imin]) then
  begin
  imin:=i;
  end;
  end;
writeln;
writeln('MAX[',imax,']:=',mas[imax]);
writeln('MIN[',imin,']:=',mas[imin]);
razn:=mas[imax]+mas[imin];
writeln('Сумма MAX и MIN:=',razn);
 end.

можно было бы и без массивов

[ROMA2PVT]

Если можно так сделай.

[Катерина Фельдман]

а как подскажи плиззззззз!!!!!!!!!!