Найти сумму четных...

Тема в разделе "Информатика", создана пользователем SnowBall, 9 фев 2010.

  1. SnowBall

    SnowBall New Member

    Найти сумму четных элементов массива целых чисел.Размерность массива - 20.Заполнение массива осуществить случайными числами от 100 до200
     
    SnowBall, 9 фев 2010
    #1
  2. marinal80

    marinal80 New Member

    var
    a:array [1..20] of integer;
    s,i:integer;
    begin
    randomize;
    for i:=1 to 20 do begin
    a:=random(101)+100;
    write (a,' ');
    end;
    writeln;
    s:=0;
    for i:=1 to 20 do 
    if odd(a)=false then s:=s+a;
    writeln (s);
    readln;
    end.
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
    marinal80, 9 фев 2010
    #2

Поделиться этой страницей

Наша группа