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

[PHILOSOPH13]

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

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

 

[PHILOSOPH13]

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

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

 

[PHILOSOPH13]

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

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

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

 

[Тёмыч]

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

 

[Vladimir_S]

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

 

[Vladimir_S]

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

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]

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]

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

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.