Заполнить все элементы большие 5 значением среднего арифметического элементов массива - Pascal ABC

Формулировка задачи:

заполните все элементы, которые больше 5, значением среднего арифметического всех элементов массива

Код к задаче: «Заполнить все элементы большие 5 значением среднего арифметического элементов массива - Pascal ABC»

textual
uses crt;
const N=1000;
var a:array[1..N] of real; i,b:integer; s:real;
begin
writeln('ведите кол-во элементов в массиве');
readln(b);
for i:=1 to b do begin
readln(a[i]);
s:=s+a[i];
end;
s:=s/b;
for i:=1 to b do
if a[i]>5 then a[i]:=s;
clrscr;
for i:=1 to b do
writeln(a[i]);
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

12   голосов, оценка 3.917 из 5


СДЕЛАЙТЕ РЕПОСТ