Массив

[Larka12]

Привет
Помогите пожалуйста с заданием


(H+E/(H+1))*G

H - сумма элементов массива с нечетными номерами
E - максимальный по модулю элемент массива
G - количество отрицательных элементов массива

- - -
массив из 10 элементов (веществ.)
ввод с клавиатуры кол-во элементов n<=10
вывод массива с клавиатуры
вычисление 3 величины
вывод этих величин с пояснением
ввод и вывод результатов формулы

[Atoris]

пишу.. с тебя печеньки, адрес для высылания печенек вышлю позже =)

[DRAgon™]

Пишите

ICQ -

629915759

[Stilet]

От меня.

MODULE mass;
IMPORT In,StdLog,Math;
VAR a:ARRAY(10) OF INTEGER;
 h,e,g:INTEGER;r:REAL;

PROCEDURE do*;
VAR i:INTEGER;
BEGIN
 In.Open;i:=0;StdLog.Clear;
 WHILE (In.Done)&(i<10) DO
  In.Int(a[i]);
  IF (i MOD 2=0) THEN h:=h+a[i];END;
  IF (ABS(a[i])>e) THEN e:=ABS(a[i]);END;
  IF (a[i]<0) THEN INC(g);END;
  StdLog.Int(a[i]);
  INC(i);
 END;
 StdLog.Ln;
 StdLog.String('сумма элементов массива с нечетными номерами');
  StdLog.Tab;StdLog.Int(h);
 StdLog.Ln;
 StdLog.String('максимальный по модулю элемент массива');
  StdLog.Tab;StdLog.Int(e);
 StdLog.Ln;
 StdLog.String('количество отрицательных элементов массива ');
  StdLog.Tab;StdLog.Int(g);
 r:=(h+e/(h+1))*g;
 StdLog.Ln;
 StdLog.String('(H+E/(H+1))*G');
  StdLog.Tab;StdLog.Real(r);

END do;

END mass.
mass.do;
1 2 3 4 5 6 -7 8 9 0

Можно без печенек

Я правда не понял фразу:

вывод массива с клавиатуры

Ну видимо преподам виднее...

[DRAgon™]

Сделали даже спасибо не сказали,не люблю таких.

[Atoris]

program Candy;

{$APPTYPE CONSOLE}

{(H+E/(H+1))*G

H - сумма элементов массива с нечетными номерами
E - максимальный по модулю элемент массива
G - количество отрицательных элементов массива

- - -
массив из 10 элементов (веществ.)
ввод с клавиатуры кол-во элементов n<=10
вывод массива с клавиатуры
вычисление 3 величины
вывод этих величин с пояснением
ввод и вывод результатов формулы}

uses
  SysUtils;

const
  MAX = 10;

var
  I: Integer;    // Параметр цикла
  A: array[1..MAX] of Real;
  H: Real;       // сумма элементов массива с нечетными номерами
  E: Real;       // максимальный по модулю элемент массива
  G: Integer;    // количество отрицательных элементов массива
  U: Real;       // Результат формулы

begin
  WriteLn('Ввести Массив:');
  for I := 1 to MAX do
    Read(A[I]);
  WriteLn;
  WriteLn;

  // Вывод массива
  H := 0;
  E := abs(A[1]);
  for I := 1 to MAX do
  begin
    if A[I] < 0 then
      inc(G);

    if abs(A[I]) > E then
      E := A[I];


    If ((I + 1) mod 2 = 0) then
      H := H + A[I];

    Write(A[I]:5:2, ' ');
  end;
  WriteLn;
  WriteLn;

  WriteLn('Cумма элементов массива с нечетными номерами: ', H:5:2);
  WriteLn;
  WriteLn('Максимальный по модулю элемент массива ', E:5:2);
  WriteLn;
  WriteLn('Количество отрицательных элементов массива ', G);
  U := (H + E / (H + 1)) * G;
  WriteLn;
  WriteLn('Результат формулы: ', U:5:2);



  ReadLn;
  ReadLn;
end.

Случайно не из Бауманки задание?

[Larka12]

Спасибо огромное, но нужно было сделать на С/С++ ... (