Регистрация
vasilprokofiev
20.01.2021 12:44
Информатика
Есть ответ 👍

Компьютер ды кым оилап тапты​

272
322
Посмотреть ответы 1

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

getmanchenko02
getmanchenko02
4,4(67 оценок)
Uses crt; var a,t,i,k,w: integer; begin t: =1; for i: =1 to 10 do begin read(a); if a >   0 then t: =t*a; if a < 0 then begin  k: =k+a; w: =w+1;   end; end; writeln('произведение положительных =  ',t); writeln('сумма отридцательных  =  ',k,'а их количество =  ',w); end.

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