Найти сумму положительных, произведение и количество отрицательных из 10 введенных целых значений -7; 12; 13, 5; -2; 0; 16; -4; 10, 3; 1; -10, 3. Код программы написать на Паскале. На проверку нужно прислать код программы и результат работы в виде скриншота.
Ответы
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
ответьте на во и №4 – представьте развернутое решение (Дано Найти Решение)
Автор: Sergei_Olga658
Разработайте переборный алгоритм поиска всех аддитив-ных цепочек для конкретного значения n 100.
Автор: natalia-shelkovich
Составить блок-схему для нахождения суммы всех натуральных чисел, кратных 10.
Автор: denbelousov963
Для чего мы создаём анимацию для оъекта?
Автор: Alekseevich1012
Надо очень Напишите текст программы на языке Паскаль. ">
Автор: СмыковаДарья1969
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.
Объяснение: