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

[DRAgon™]

Сообщение от 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.

Переписываю и запускаю. Да????

[ROMA2PVT]

Переписываю и запускаю. Да????

да конечно.

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

и что должно в итоге получится? как я пойму, что это правильно?

[DRAgon™]

Сообщение от Катерина Фельдман

и что должно в итоге получится? как я пойму, что это правильно?

В итоге должна получится программка
если ошибок нет, значит правильно

[ROMA2PVT]

.................

[ROMA2PVT]

Знаешь что есть максимальный и минимальный элементы?Ну вот.Выведет массив чисел и внизу сумму.Смотриш на масси и подсчитываешь.

В итоге должна получится программка
если ошибок нет, значит правильно

Логично.

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

сейчас посмотрим что будет

[DRAgon™]

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

Знаешь что есть максимальный и минимальный элементы?Ну вот.Выведет массив чисел и внизу сумму.Смотриш на масси и подсчитываешь.

Логично.

ну конечно