Регистрация
samoilenkoludmi
10.07.2021 17:02
Информатика
Есть ответ 👍

решить , в прикреплённом файле,

241
454
Посмотреть ответы 2

Ответы на вопрос:

kotelnikovaLA
kotelnikovaLA
4,5(30 оценок)

дай нормально картинку что это это перводиься файл

amina353
amina353
4,8(19 оценок)
Var n, i: integer;       sum,  pr: longint;       a: array[1..10000] of integer; begin     sum : = 0; pr : = 1;     readln(n);     for i : = 1 to n do begin       read(a[i]);       if a[i] mod 2=0       then sum : = sum + a[i]       else pr : = pr*a[i];     end;     writeln(sum,' ',pr); end.

Популярно: Информатика