• Помогите пожалуйста!
    Составить программу
    Задача:
    В массиве 10 чисел определить произведение четных, сумму больших 5.

Ответы 1

  • var a,i,k,sum:integer;

    T:array[1..10]of integer;

    begin

    k:=1;

    for i:=1 to 10 do read(T[i]);

    for i:=1 to 10 do begin

    if(T[i]mod 2=0)then k:=k*T[i];

    if(T[i]>5)then sum:=sum+t[i];

    end;

    write(sum,' ',k);

    end.

  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years