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

PHILOSOPH13 · 15 Июн 2010

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

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

PHILOSOPH13 · 15 Июн 2010

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

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

PHILOSOPH13 · 15 Июн 2010

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

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

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

Тёмыч · 15 Июн 2010

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

Vladimir_S · 15 Июн 2010

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

Vladimir_S · 16 Июн 2010

PHILOSOPH13 написал(а):
дан массив А размера 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 · 16 Июн 2010

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 Июн 2010

PHILOSOPH13 написал(а):
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.

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

PHILOSOPH13

Ученик

PHILOSOPH13

Ученик

PHILOSOPH13

Ученик

Тёмыч

WrighT

Vladimir_S

Ученик

Vladimir_S

Ученик

AlexZir

support

Vladimir_S

Ученик

Похожие темы