Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
0 / 0 / 0
Регистрация: 18.04.2011
Сообщений: 21
1

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

21.04.2011, 16:56. Показов 832. Ответов 5
Метки нет (Все метки)

Вставить среднее арифметическое элементов массива после всех элементов, его превышающих
(одномерный массив):

 Комментарий модератора 
Дублирование тем запрещено правилами форума (п. 3.4).
Не плодите одинаковых тем.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.04.2011, 16:56
Ответы с готовыми решениями:

Найти количество и среднее арифметическое всех отрицательных элементов массива из 20 элементов
Найти количество и среднее арифметическое всех отрицательных элементов массива из 20 элементов...

Найти среднее арифметическое отрицательных элементов списка и вставить его в список перед первым отрицательным элементом
Помогите,пожалуйста, написать программу Ввести неопределенное количество вещественных чисел и...

среднее арифметическое всех нечетных элементов массива
вот ещё 2 задачки 1)Найти среднее арифметическое все нечетных элементов массива 2)элементы...

Найти среднее арифметическое всех элементов массива
Задан массив X={Xk},k=1,n,n<=20 элементов. Найти среднее арифметическое всех его элементов.Если не...

5
magirus
21.04.2011, 16:57
  #2
 Комментарий модератора 
Rus1an73, называйте темы нормально.
0
0 / 0 / 0
Регистрация: 18.04.2011
Сообщений: 21
27.04.2011, 19:26  [ТС] 3
Вставить среднее арифметическое элементов массива после всех элементов, его превышающих
(одномерный массив)
пример:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program zadacha_37;
uses crt;
Type mas=array[1..50] of integer;
var  k,i,n,l:integer;
     s:real;
     a,b:mas;
begin
clrscr;
writeln('Vedite razmernost');
readln(n);
writeln('massiv a:');
 for i:=1 to n do
 begin
 a[i]:=random(50)-20;
 write(a[i]:2);
 end;
writeln('Vctavte chislo >');
readln(k);
k:=0;l:=0;
for i:=n downto l do
  begin
0
magirus
27.04.2011, 19:29
  #4
 Комментарий модератора 
давайте темам информативные названия и пользуйтесь тегами форматирования
0
0 / 0 / 0
Регистрация: 18.04.2011
Сообщений: 21
27.04.2011, 19:38  [ТС] 5
Вставить среднее арифметическое элементов массива после всех элементов, его превышающих
(одномерный массив)


Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program zadacha_37;
uses crt;
Type mas=array[1..50] of integer;
var  k,i,n,l:integer;
     s:real;
     a,b:mas;
begin
clrscr;
writeln('Vedite razmernost');
readln(n);
writeln('massiv a:');
 for i:=1 to n do
 begin
 a[i]:=random(50)-20;
 write(a[i]:2);
 end;
writeln('Vctavte chislo >');
readln(k);
k:=0;l:=0;
for i:=n downto l do
  begin
помагите доделать
0
К.О.
534 / 499 / 344
Регистрация: 26.03.2011
Сообщений: 1,141
27.04.2011, 20:06 6
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
var
  a: array[1..50] of integer;
  i,n,sr,x: integer;
Begin
  randomize;
  readln(n);
  for i:=1 to n do
    begin
      a[i]:=random(50)-20;
      write(a[i]:4);
      sr:=sr+a[i];
    end;
  writeln;
  sr:= sr div n;
  for i:=n downto 1 do
    if sr<a[i] then begin
      x:=i+1;
      break;
    end;
  for i:=n+1 downto x+1 do
    a[i]:=a[i-1];
  a[x]:=sr;
  for i:=1 to n+1 do
    write(a[i]);
  readln
End.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.04.2011, 20:06

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Найти среднее арифметическое всех элементов массива
Задача 1 Дан массив размера N и целые числа K и L (1&lt;K&lt;=L&lt;=N). Найти среднее арифметическое всех...

Дан массив размера N и целые числа K и L (1 < K ≤ L ≤ N). Найти среднее арифметическое всех элементов массива, кроме элементов с номерами от K до L вк
Array6. Дан массив размера N и целые числа K и L (1 &lt; K ≤ L ≤ N). Найти среднее арифметическое всех...

Получите сумму и среднее арифметическое всех элементов массива
Получите сумму и среднее арифметическое всех элементов массива.

Обработка массивов: От каждого элемента массива вычесть среднее арифметическое всех элементов массива
Ответ выводится не верно и не совпадает с условиями задачи const n = 10; var A: array of...


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

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

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