Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 190492
26.01.2017, 19:00
0.00 руб.
26.01.2017, 19:19
0 3 2
Компьютеры Программирование
Здравствуйте! Прошу помощи в следующем вопросе:

Составьте программу нахождения среднего арифметического значения одномер-ного массива А(N) (элементы массива вводятся с клавиатуры). Сформируйте новый мас-сив В(М), состоящий из элементов массива А(N), больших среднего арифметического.
В паскале.

Обсуждение

давно
Зенченко Константин Николаевич
Старший Модератор
31795
6196
26.01.2017, 19:21
общий
Адресаты:
У нас есть ветка чисто паскалевская. задавайте воспросы сразу туда.
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

давно
Зенченко Константин Николаевич
Старший Модератор
31795
6196
27.01.2017, 14:03
общий
это ответ
Здравствуйте, nikita9581!
Смотрите код:
[code lang=pascal h=100]const
n=5;
m=n-1;
var
a:array[1..n]of integer;
b:array[1..m]of integer;
c,d:integer;
e:real;
begin
e:=0;{сумма введенных чисел}
for c:=1 to n do{цикл ввода}
begin
write('enter A[',c,']:=');{выводим для красоты}
readln(a[c]);{вводим}
e:=e+a[c];{суммируем}
end;
e:=e/n;{получаем среднее}
writeln('midle:',e:10:5);{выводим результат}
d:=0;{счетчик элементов нового амассива}
for c:=1 to n do{цикл поиска}
if a[c]>e then{проверяем условие}
begin
inc(d);{увеличиваем счетчик}
b[d]:=a[c];{запоминаем в массиве}
end;
writeln('count:',d);{сообщение о количестве найденных элементов}
c:=0;{пока ноль}
while c<d do{пока меньше счетчика}
begin
inc(c);{увеличиваем счетчик}
write(b[c]:6);{выводим массив В}
end;
end.[/code]

Блок-схему можно построить любым автоматическим построителем, благо их в интернете полно. А можно использовать он-лайн построитель.
Удачи!
5
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

давно
Зенченко Константин Николаевич
Старший Модератор
31795
6196
27.01.2017, 14:03
общий
это ответ
Здравствуйте, nikita9581!
Смотрите код:
[code lang=pascal h=100]const
n=5;
m=n-1;
var
a:array[1..n]of integer;
b:array[1..m]of integer;
c,d:integer;
e:real;
begin
e:=0;{сумма введенных чисел}
for c:=1 to n do{цикл ввода}
begin
write('enter A[',c,']:=');{выводим для красоты}
readln(a[c]);{вводим}
e:=e+a[c];{суммируем}
end;
e:=e/n;{получаем среднее}
writeln('midle:',e:10:5);{выводим результат}
d:=0;{счетчик элементов нового амассива}
for c:=1 to n do{цикл поиска}
if a[c]>e then{проверяем условие}
begin
inc(d);{увеличиваем счетчик}
b[d]:=a[c];{запоминаем в массиве}
end;
writeln('count:',d);{сообщение о количестве найденных элементов}
c:=0;{пока ноль}
while c<d do{пока меньше счетчика}
begin
inc(c);{увеличиваем счетчик}
write(b[c]:6);{выводим массив В}
end;
end.[/code]

Блок-схему можно построить любым автоматическим построителем, благо их в интернете полно. А можно использовать он-лайн построитель.
Удачи!
5
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа