Question

Дан одномерный динамический массив случайных целых чисел A(N). Найти
номер и значение максимального элемента, расположенного во второй половине (включая середину) массива целых чисел. На паскале

Answer 1

Ответ:

var

 i, n: integer;

 x: array of real;

 s: real;

begin

 n := 10;

 randomize;

 s := 0;

 SetLength(x, n);

 for i := 0 to n - 1 do

 begin

   x[i] := -n div 2 + random * n;

   write(x[i]:8:2);

   if x[i] < 10 then

     s := s + x[i];

 end;

 writeln;

 writeln(s:8:2);

end.

Объяснение: