profile
Опубликовано 5 лет назад по предмету Информатика от Chik260501

одномерный массив.
найти сумму тех элементов которые без остатка делиться на 2
(pascal).

  1. Ответ
    Ответ дан Эклео
    const n=20;
    var 
      s,i: integer;
      var a: array[1..n] of integer;
    begin
      writeln ('Исходный массив');
      for i:=1 to n do begin
        a[i]:=random(100);
        write (a[i]:3);
        if a[i] mod 2 =0
          then s:=s+a[i];
      end;
      writeln;  
      writeln ('Сумма четных элементов = ',s);
    end.

    ------------------Результат:------------------

    Исходный массив
     81 44 47 62 51 94 32 42 41 83 75 14 18 35  7 97 83 51 71 57
    Сумма четных элементов = 306

Самые новые вопросы