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

@Лизер · Регистрация: 24.06.2015

Студворк — интернет-сервис помощи студентам

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

@vovachuk · 23.09.2015, 02:52

Если ещё не поздно(3 месяца всё-таки) то вот

Pascal

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.

если уже не надо, в чём я не сомневаюсь, то просто для себя решил

@Лизер 0 / 0 / 0 Регистрация: 24.06.2015 Сообщений: 3
		1
	Заполнить все элементы большие 5 значением среднего арифметического элементов массива 25.06.2015, 01:32. Показов 1883. Ответов 1 Метки нет (Все метки) заполните все элементы, которые больше 5, значением среднего арифметического всех элементов массива 0

Опции темы

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

Решение