Регистрация
nastushkaplushka
13.04.2022 20:15
Информатика
Есть ответ 👍

802.11a стандартының негізгі кемшіліктерін анықта.​

273
380
Посмотреть ответы 1

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

12Камилла1
12Камилла1
4,7(91 оценок)
Var   mas: array[1..100] of integer;   i,n,sum: integer;   bool: boolean; begin   bool: =false;   sum: =0;   readln(n);   for i: =1 to n do   begin   read(mas[i]);   if mas[i]< 0 then     bool: =true;   if bool=true then     sum: =sum+mas[i];   end;   writeln(sum); end.

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