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

Из одного массива в другой переписать элементы, модуль которых меньше среднего значения

06.01.2010, 03:31. Просмотров 6110. Ответов 4
Метки нет (Все метки)

Помогите пожалуйста!=)

Из массива а(100) в массив b(100) переписать элементы модулькоторых меньше среднего значения всех элементов массива (а) . Вместо остальных элементов в массив (b) записать нули. Массив (b) вывести на печать по чисел в строку.

если не трудно, то с блок схемой...=)
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.01.2010, 03:31
Ответы с готовыми решениями:

Переписать из одного массива в другой все элементы, значения которых больше -1.8 и меньше 2.7
Сформировать вещественный массив A,элементами которого являются случайные числа из диапазона...

Все элементы массива, значения которых на 50% меньше среднего или на 50% больше среднего значения, заменить нулем
Вычислить среднее значение элементов массива. Вывести на дисплей полученное значение. После этого...

Переписать из массива Y(N) в массив X элементы, значения которых больше среднего гармонического
2.2. Переписать из массива Y(N) в массив X элементы, значения кото-рых больше среднего...

Удалить элементы, значение которых меньше среднего значения всех элементов массива
удалить элементы, значение которых меньше среднего значения всех элементов массива с помощь...

4
7 / 7 / 5
Регистрация: 02.01.2010
Сообщений: 69
06.01.2010, 05:54 2
Цитата Сообщение от Just Boo Посмотреть сообщение
по чисел в строку
пропустил по сколко чисел? )
а так вот кусочек...
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
Var sr:real; i,s,j:integer; a,b:array[1..100] of integer;
begin
{Ввод массива а}
s:=0;
For i:=1 to 100 do
 s:=s+a[i];
sr:=s/100;
for i:=1 to 100 do
 if abs(a[i])<sr then
  b[i]:=a[i] {как я понял нужно записать в b массив элементы, а не их модуль}
 else
  b[i]:=0;
{вывод, допустим по 10 чисел}
s:=1;
for i:=1 to 10 do
 begin
  for j:=1 to 10 do
   begin
    write(B[s],' ');
    inc(s);
   end;
  writeln;
 end;
end.
Всё =)
1
827 / 349 / 64
Регистрация: 30.01.2009
Сообщений: 1,204
06.01.2010, 13:51 3
69Ik, я немного изменил твой
код
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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
Program Arr2;
  Uses Crt;
  Const n = 100;
  Type vector = array[1..n] of integer;
  Var
    a,b : vector;
 
  Procedure InPut(var a : vector;
                      n : byte);
    Var i : byte;
    Begin
      {Randomize;}
      For i := 1 to n do
        a[i] := random(30)-10;
        {Read(a[i]);}
    End;
 
  Procedure Out(a : vector;
                n : byte);
    Var i,j : byte;
    Begin
      For i := 1 to 10 do
        Begin
          For j := 1 to 10 do
            Write(a[i*j]:6);
          Writeln;
        End;
    End;
 
  Function Arit_mean(a : vector;
                     n : byte) : integer;
    Var
      i : byte;
      s : integer;
    Begin
      s := 0;
      For i := 1 to n do
        s := a[i] + s;
      Arit_mean := s div n;
    End;
 
  Procedure Fill(a : vector;
                 var b : vector;
                 n : byte);
    Var
      i,k : byte;
      s : integer;
    Begin
      s := Arit_mean(a,n);
      k := 1;
      For i := 1 to n do
        If Abs(a[i]) < s Then
          Begin
            b[k] := a[i];
            Inc(k);
          End;
      For i := k to n do
        b[i] := 0;
    End;
 
 
BEGIN
  ClrScr;
  InPut(a,n);
  Writeln('Массив a:');
  Out(a,n);
  Fill(a,b,n);
  Writeln(#13#10'Массив b:');
  Out(b,n);
  Readkey;
END.

блок-схема
Из одного массива в другой переписать элементы, модуль которых меньше среднего значения
0
7 / 7 / 5
Регистрация: 02.01.2010
Сообщений: 69
06.01.2010, 16:14 4
Цитата Сообщение от insolent Посмотреть сообщение
Writeln(#13#10'Массив b:');
Зачем #10#13 ? writeln и так на новую строку преводит или я что то не до понимаю? =)
0
827 / 349 / 64
Регистрация: 30.01.2009
Сообщений: 1,204
06.01.2010, 17:09 5
69Ik, Writeln переводить курсор на новую строку после вывода, а выводом служебных( или как там их?) символом перевожу курсор на новую строку перед выводом..
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.01.2010, 17:09

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

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

Переписать из массива Y(N) в массив X элементы, которые меньше среднего геометрического элементов массива Y(N)
Разработать программу, для решения поставленной задачи двумя спо-собами. Первый способ заключается...

Переписать из массива Y(N) в массив X элементы, которые меньше среднего геометрического элементов массива
Переписать из массива Y(N) в массив X элементы, которые меньше среднего геометрического элементов...

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


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

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

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