Регистрация
rabramchik
25.06.2023 21:12
Информатика
Есть ответ 👍

Запишите диапазон выделенных ячеек​

227
349
Посмотреть ответы 1

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

skatinyatovna
skatinyatovna
4,7(87 оценок)

  program sumandmul;

uses crt;

var a: array[1..10] of real;

        i: integer;    

 

        sum,mul: longint;

begin

      clrscr;

      for i: =1 to 10 do

            begin

                  write('введите -', i,' число: '  );

                  readln(a[i]);

              end;

 

 

sum: =0; mul: =1;

for i: =1 to 10 do

            begin

                if (a[i]> 0) then sum: =sum+a[i];

                if (a[i]< 0  )  then mul: =mul*a[i];

              end;    

  writeln('сумма положительных элементов: ',sum);

  writeln('произведение отрицательных элементов: ',mul);  

    readkey;

 

end.

 

 

 

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