Сумма четных и нечетных элементов массива

      Комментарии к записи Сумма четных и нечетных элементов массива отключены

Главная Форумы Программирование Программирование на Pascal Сумма четных и нечетных элементов массива

Помечено: ,

В этой теме 0 ответов, 1 участник, последнее обновление  Васильев Владимир Сергеевич 1 месяц, 4 нед. назад.

  • Автор
    Сообщения
  • #3783

    Напишите процедуру, которая вычисляет сумму элементов массива имеющих четное значение и нечетное.

    Решение:

    program procedures_4;
    uses crt;
    type Arr=array[1..100] of integer;
    var
      A: Arr;
      i, n, sum1, sum2: integer;
    procedure sum(d: integer; mas: Arr);
      var j, sum1, sum2: integer;
    begin
      for j:=1 to d do
        if mas[j] mod 2=0 then sum1:=sum1+mas[j]
        else sum2:=sum2+mas[j];
      writeln;
      writeln('Сумма четных элементов: ', sum1);
      write('Сумма нечетных элементов: ', sum2);
    end;
    begin
      clrscr;
      write('Количество элементов > '); read(n);
      for i:=1 to n do
      begin
        A[i]:=random(10);
        write(A[i], ' ');
      end;
      sum1:=0; sum2:=0;
      sum(n, A);
      readkey;
    end.

Для ответа в этой теме необходимо авторизоваться.