Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/7: Рейтинг темы: голосов - 7, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 07.07.2013
Сообщений: 72
1

Вывести на экран только те элементы массива, которые отклоняются от среднего арифметического

08.07.2013, 21:30. Показов 1346. Ответов 2
Метки нет (Все метки)

Ребята помогите решить вот такую задачу. Задан целочисленный массив А. Напишите программу, которая выводит на экран только те его элементы, которые отклоняются от среднего арифметического элементов массива не более чем на заданную величину Т.
0
Заказывайте контрольные, курсовые и дипломы здесь.
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.07.2013, 21:30
Ответы с готовыми решениями:

Вывести на экран элементы одномерного массива, большие среднего арифметического
Вывести на экран элементы одномерного массива, большие среднего арифметического.

Удалить из массива те элементы, которые больше среднего арифметического
Дан массив целых чисел D1,...,D30. Удалить из него те элементы, которые больше среднего...

Заменить все элементы массива, которые меньше среднего арифметического значения всех элементов
Помогите, пожалуйста, правильно написать программу. Я написал код, но он не запускается. ...

Вывести все элементы массива, меньшие среднего арифметического
1. Дан одномерный массив из 10 элементов. Найти среднее арифметическое его элементов и вывести все...

2
94 / 94 / 32
Регистрация: 29.06.2013
Сообщений: 252
08.07.2013, 23:17 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Program mas;
uses crt;
const n=10;
var A: Array[1..n] of Integer;
    Sum: Integer;
    i,T: Byte;
begin
ClrScr;
WriteLn('Ââåäèòå ìàññèâ:');
for i:=1 to n do
    begin
    Read(A[i]);
    Sum:=Sum+A[i];
    end;
Write('Ââåäèòå îòêëîíåíèå (Ò): ');
ReadLn(T);
WriteLn('Åëåìåíòû, êîòîðûå îòêëîíÿþòñÿ îò ñð. àðèôì. íå áîëåå ÷åì íà ',T,': ');
for i:=1 to n do if abs(A[i]-Sum/n)<=T then Write(A[i],' ');
end.
2
14 / 14 / 12
Регистрация: 22.08.2008
Сообщений: 75
08.07.2013, 23:21 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program dasha2;
var a:array [1..1000] of integer;
i,s,t,n:integer;
sred:real;
begin
s:=0;
write ('N='); readln (n);
write ('T='); readln (t);
 
randomize;
for i:=1 to n do
begin
a[i]:=random(100);
writeln ('a[',i,']=',a[i]);
s:=s+a[i];
end;
sred:=s/n;
writeln ('sred',sred:2:1);
for i:=1 to n do
if (a[i]>sred-t) and (a[i]<sred+t) then writeln ('*a[',i,']=',a[i]);
readln;
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.07.2013, 23:21

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Определить какие числа встречаются более двух раз, вывести на экран элементы больше среднего арифметического
В одномерном массиве, состоящем из n вещественных элементов: 1) определить какие числа встречаются...

Вывести все элементы, значение которых превосходит среднего арифметического элементов массива
Дан массив A из N элементов. Вывести все элементы, значение которых превосходит среднего...

Напишите программу, которая выводит на экран только те его элементы, которые отклоняются от среднего арифметического элементов массива не более чем на
Ребята помогите решить вот такую задачу. Задан целочисленный массив А. Напишите программу, которая...

Вывести на экран элементы массива, которые больше среднего арифметического всех его элементов
Ребят помогите пожалуйста решить два массива, а то мне трудно они даються=) 1)Дан массив А из N...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.