Question

1. Вводится число n. Затем с клавиатуры вводится число n. Заменить все отрицательные числа на положительные с таким же модулем и вывести их на экран.2. Вводится число n( n>2). Затем с клавиатура выводится n чисел. Вывести два наибольших числа из введённых

Answer 1

uses CRT;

const n = 3;  

var z,i : Integer;

arr : array [1..n] of Integer;

begin  

  clrscr;

  {Ввод данных}

  for i:=1 to n do

  begin

     writeln('Введите  ', i, '-число');

     readln(arr[i])

   end;

  {Вычисление того что требуется}

  for i:=1 to n do

     if arr[i]<0 then arr[i] :=-arr[i];

 

  {Вывод}

  for i := 1 to n do

    writeln(arr[i]:6);

  repeat until keypressed

end.

Объяснение: