Регистрация
21122007
03.12.2022 18:04
Информатика
Есть ответ 👍

Дан одномерный массив a[n]. найти минимум и среднее значение его отрицательных элементов. получить новый массив в[n] путем замены всех минимальных элементов массива a на среднее значение.паскаль,

120
407
Посмотреть ответы 3

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

plalbina
plalbina
4,7(80 оценок)
Const     n = 13; var     a,b: array[1..n] of real;     i: integer;     sr,m: real; begin write('исходный массив: '); for i: = 1 to n do       begin       a[i]: =random(21)-10;       write(a[i],' ');       if a[i]< 0 then sr: =sr+a[i];       end; sr: =sr/n; m: =a[1]; for i: = 2 to n do       if a[i]< m then m: =a[i]; writeln; write('переработанный массив: '); for i: = 1 to n do       begin       if a[i]=m then b[i]: =sr       else b[i]: =a[i];       write(b[i]: 0: 3,' ')       end end.
novakelizaveta7
novakelizaveta7
4,5(83 оценок)
// pascalabc.net 3.2, сборка 1389 от 01.03.2017 // внимание! если программа не работает, обновите версию! begin   var a: =arrrandom(readinteger('n=',99); a.println;   var negmin: =a.where(x-> x< 0).min;   var negavg: =a.where(x-> x< 0).average;   var b: =a.select(x-> real(x=negmin? negavg: ;   b.println end. пример n= 10 24 -57 1 97 -20 -42 38 22 7 74 24 -39.6666666666667 1 97 -20 -42 38 22 7 74
TittansMass
TittansMass
4,6(2 оценок)

3) точки и числа

Объяснение:

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