[siazepp]

Добрый вечер всем.

Нуждаюсь в Вашей помощи с заданием. Ниже Вы можете видеть задание и условие:

Условие

1) Данная работа выполняется с использованием интегрированной среды разработки приложений Delphi 7.

2) Задание нужно выполнить в виде консольного (DOS) приложения.

Разработать программу и тестовый пример для проверки работы программы. В работе использовать статические массивы, задавая их размер 100. Значение n<100 (количество элементов массива) и сами элементы массива вводить с клавиатуры. Тип элементов массива – real, если в задании не указано, что массив целочисленный. Введенный массив необходимо вывести на экран в строку, используя соответствующий формат вывода. Если в результате выполнения задания изменился исходный массив, то результирующий массив тоже нужно вывести на экран. В качестве отчета отсылается папка с соответствующим проектом, тестовый пример приводить не нужно.

Задание

В заданном целочисленном массиве a1, a2, …, an подсчитать сумму и
произведение четных, положительных элементов. Если в массиве отсутствуют подобные элементы, то вывести на экран соответствующее сообщение.

[lmikle]

Госпадя!!!
Сессия началась???

Код:

program MyAray;

{$APPTYPE CONSOLE}

var
  A : Array [1..100] Of Integer;
  N : Integer;
  I : Integer;
  S : Integer;
  M : Integer;
  F : Boolean;

begin
  Write('Введите длинну массива N = ');
  Readln(N);
  WriteLn('Введите элементы массива (целые числа):');
  For I := 1 To N Do
    Begin
      Write('A[',I,'] = ');
      Readln(A[i]);
    End;

  S := 0;
  M := 1;
  F := False;
  For I := 1 To N Do
    Begin
      Write(A[i],' ');
      If ((A[i] mod 2) = 0) And (A[i] > 0) Then // или ((I mod 2) = 0) And (A[i] > 0), если четность относится к номеру элемента
        Begin
           S := S + A[i];
           M := M * A[i];
           F := True;
        End;
    End;
  Writeln;

  If F Then
    Begin
      Writeln('Сумма положительных четных элементов S = ',S);
      Writeln('Произведение положительных четных элементов M = ',M);
    End
  Else
    Writeln('В массиве нет положительных четных элементов');
end;

[M.A.D.M.A.N.]

https://ru.wikipedia.org/wiki/Map
https://ru.wikipedia.org/wiki/%D0%A1...81%D0%BA%D0%B0

[siazepp]

Благодарю за помощь!