39

Помогите решить задания в программе паскаль: 1) вычислить…

ws36s-k 25 июля 2022

Помогите решить задания в программе паскаль: 1) вычислить произхведение сумм положительных и отрицательных элементов целочисленного массиваа[1… 10].

категория: информатика

77

program ms; uses crt; var a: array [1… 10] of integer; l,k,s,i: longint; beginclrscr; writeln ('Введите 10 элементов массива'); for i: =1 to 10 dobegin readln (a[i]); if a[i]<0 then l: =l+a[i]; if a[i]>0 then k: =k+a[i]; end; s: =l*k; writeln (s); readkey; end.

пользователи выбрали этот ответ лучшим
Знаете другой ответ?

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...