Технический форум - Помогите с программами. На завтра.

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Помогите с программами. На завтра. (http://www.tehnari.ru/f41/t37038/)

PHILOSOPH13

15.06.2010 17:34

Помогите с программами. На завтра.

дан массив А размера N.сформировать два новых массива B и C.
В массив B записать все положительные члены массива A,в массив C все отрицательные(сохраняя порядок элементов)Вывести сначала размер и содержимое массива B,а затем-размер и содержимое массива C.

PHILOSOPH13

15.06.2010 17:41

помогите с прогами...на завтра

1)Дано целое число N(>2) и набор из N чисел - значений некоторой величины, полученных в N опытах. Найти среднее значение этой величины. При вычислении среднего значения не учитывать минимальное и максимальное из имеющихся в наборе значений.
2)Дан массив А размера N. Сформировать новый массив B того же размера по след правилу: элеменнт Bk равен среднему арифметическому элементов массива А с номерами от K до N.

PHILOSOPH13

15.06.2010 17:55

помогите до завтра!!!(((

1)Дан целочисленный массив размера N. Удалить из массива все одинаковые элементы, оставив их первые вхождения.

2)Дан целочисленный массив размена N. Преобразовать массив, увеличив его последнюю серию наибольшей длины на один элемент.

Тёмыч

15.06.2010 18:20

Все ваши темы обьеденены.

Vladimir_S

15.06.2010 20:15

О, так это что же - нам целая ночь дается для решения Ваших задач за семестр? Очень любезно с Вашей стороны. Вот только, боюсь, меня столь заманчивая перспектива интеллектуального кутежа несколько, как бы это сказать, не вдохновляет. Извините.

Vladimir_S

16.06.2010 10:49

Цитата:

Сообщение от PHILOSOPH13 (Сообщение 347666)

Код:

Const

 NA=30;

VAR

 NB,NC:BYTE;

 A,B,C:ARRAY[1..NA] of INTEGER;

 i:INTEGER;

BEGIN

 RANDOMIZE;

 NB:=0;

 NC:=0;

 WriteLn('Initial array ("A"):');

 For i:=1 to NA do

  begin

   A[i]:=RANDOM(100)-50;

   Write(A[i]:4);

   IF A[i]>0 then

    begin

     INC(NB);

     B[NB]:=A[i];

    end else

   IF A[i]<0 then

    begin

     INC(NC);

     C[NC]:=A[i];

    end;

  end;

 WriteLn;

 WriteLn('NB= ',NB);

 IF NB>0 then

  For i:=1 to NB do

   Write(B[i]:4);

 WriteLn;

 WriteLn('NC= ',NC);

 IF NC>0 then

  For i:=1 to NC do

   Write(C[i]:4);

 WriteLn;

 ReadLn;

END.

AlexZir

16.06.2010 11:07

Цитата:

2)Дан массив А размера N. Сформировать новый массив B того же размера по след правилу: элеменнт Bk равен среднему арифметическому элементов массива А с номерами от K до N.

Код:

uses crt;

const n=10;

var a: array[1..n] of integer;

     b: array[1..n] of real;

     i,k: integer;

begin

randomize;

for i:=1 to n do

a[i]:=random(100)-40;



for i:=1 to n do begin

b[i]:=0;

for k:=i to n do

b[i]:=b[i]+a[k];

b[i]:=b[i]/(n-i+1);

end;



writeln('a[i]        b[i]');

for i:=1 to n do

writeln(a[i]:4,'    ',b[i]:4:6);



readln;

end.

Vladimir_S

16.06.2010 11:21

Цитата:

Сообщение от PHILOSOPH13 (Сообщение 347668)

Код:

Const

 N=30;

VAR

 Nactual:BYTE;

 A:ARRAY[1..N] of WORD;

 i:INTEGER;

 Min,Max:WORD;

 Medium:Real;

BEGIN

 RANDOMIZE;

 WriteLn('Initial array:');

 Min:=100;

 Max:=0;

 For i:=1 to N do

  begin

   A[i]:=RANDOM(20)+40;

   Write(A[i]:4);

   If A[i]>Max then Max:=A[i];

   If A[i]<Min then Min:=A[i];

  end;

 WriteLn;

 Nactual:=0;

 Medium:=0;

 For i:=1 to N do

  If (A[i]>Min) and (A[i]<Max) then

   begin

    INC(Nactual);

    Medium:=Medium+A[i];

   end;

 WriteLn('Medium= ',Medium/Nactual:6:3);

 ReadLn;

END.

Часовой пояс GMT +4, время: 16:47.