Ответы на вопрос:
Var a: array[1..255] of integer; n,i,p,o: integer; begin read(n); for i: =1 to n do begin read (a[i]); if (a[i]> 0) then p: =p+a[i] else o: =o+a[i]; end; end.
Популярно: Информатика
-
Рассказ состоит из 80 страниц, на каждой странице 100строк, в...
Песатель11.05.2020 01:51 -
Выделите все случаи, при которых будет изменяться значение М при...
zanna8202.10.2022 23:23 -
25 ! с паскалем,! 1.выведите все двузначные числа,в записи которых...
мам6521.02.2020 03:37 -
Дано натуральное число n. Вычислить 21+22+…+2n ....
Dangssa30.09.2022 03:34 -
Complete the sentences so that they mean the same as the original...
Ildarbagin03.03.2023 11:35 -
Complete the sentences with could, couldn’t or the correct forms...
1230987430.04.2022 02:21 -
Read, listen and talk about books and reading, secret agents and...
skripniklenok1326.09.2022 01:22 -
Express two general opinions connected with topics 1-4. For each...
dianacm78902.03.2023 08:01 -
Replace each underlined word or phrase with one from the words...
Невидимка00322.06.2021 05:30 -
Choose the correct words or phrases. — Выберите правильные слова...
Profesor24515.12.2020 13:03