Задан массив из...

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

  1. veraida

    veraida New Member

    Задан массив из N элементов. Вычислить сумму тех элементов, которые кратны 5.
     
    veraida, 10 фев 2010
    #1
  2. МаруськА@

    МаруськА@ New Member

    Program t1;
    Var A: array [1..1000] of integer; N, i: Byte; s: Longint;
    Begin
    Readln (N);
    For i:= 1 to N do
    Begin
    Readln (A);
    If A mod 5 = 0 then
    s:=s+A;
    End;
    Write (s);
    Readln;
    End.
     
    МаруськА@, 10 фев 2010
    #2

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

Наша группа