Регистрация
Ангелина7102
16.04.2021 16:33
Информатика
Есть ответ 👍

Задан одномерный массив z(n) (n< =80). все элементы, меньшие среднего арифметического наибольшего и наименьшего элементов массива, заменить на наименьший элемент, а большие среднего арифметического – на наибольший элемент массива.

289
405
Посмотреть ответы 2

Ответы на вопрос:

даниил740
даниил740
4,7(17 оценок)
Uses crt; const n=10; var a: array[1..n] of integer; i,max,min: integer; sr: real; begin randomize; max: =0; min: =50; for i: =1 to n do begin a[i]: =random(50); writeln(a[i]); end; writeln; for i: =1 to n do begin if a[i]< min then min: =a[i]; if a[i]> max then max: =a[i]; end; sr: =(max+min)/2; for i: =1 to n do begin if a[i]< sr then a[i]: =min; if a[i]> sr then a[i]: =max; end; for i: =1 to n do writeln(a[i]); end.
PomidorkaX3
PomidorkaX3
4,5(98 оценок)

var

  a: array[1..15] of integer;

  i: integer;

begin

  randomize;

  writeln('сгенерированный массив: ');

  for i : = 1 to 12 do

  begin

      a[i] : = random(31) - 10;

      write(a[i], ' ');

  end;

  writeln;

end.

 

Популярно: Информатика