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

@Just Boo · Регистрация: 06.01.2010

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

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

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

если не трудно, то с блок схемой...=)

@69Ik · 06.01.2010, 05:54

Сообщение от Just Boo

по чисел в строку

пропустил по сколко чисел? )
а так вот кусочек...

Pascal

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.

Всё =)

@insolent · 06.01.2010, 13:51

69Ik, я немного изменил твой

код

Pascal

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.

блок-схема

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

@69Ik · 06.01.2010, 16:14

Сообщение от insolent

Writeln(#13#10'Массив b:');

Зачем #10#13 ? writeln и так на новую строку преводит или я что то не до понимаю? =)

@insolent · 06.01.2010, 17:09

69Ik, Writeln переводить курсор на новую строку после вывода, а выводом служебных( или как там их?) символом перевожу курсор на новую строку перед выводом..

@Just Boo 0 / 0 / 0 Регистрация: 06.01.2010 Сообщений: 9
		1
	Из одного массива в другой переписать элементы, модуль которых меньше среднего значения 06.01.2010, 03:31. Показов 6639. Ответов 4 Метки нет (Все метки) Помогите пожалуйста!=) Из массива а(100) в массив b(100) переписать элементы модулькоторых меньше среднего значения всех элементов массива (а) . Вместо остальных элементов в массив (b) записать нули. Массив (b) вывести на печать по чисел в строку. если не трудно, то с блок схемой...=) 0

@69Ik 7 / 7 / 5 Регистрация: 02.01.2010 Сообщений: 69
	06.01.2010, 16:14	4
	Сообщение от insolent Writeln(#13#10'Массив b:'); Зачем #10#13 ? writeln и так на новую строку преводит или я что то не до понимаю? =) 0

@insolent 829 / 352 / 64 Регистрация: 30.01.2009 Сообщений: 1,204
	06.01.2010, 17:09	5
	69Ik, Writeln переводить курсор на новую строку после вывода, а выводом служебных( или как там их?) символом перевожу курсор на новую строку перед выводом.. 0

Опции темы