Задать вопрос Регистрация
Помочь другим

  • помогите решить задания в программе паскаль:

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

Ответы 1

  • 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.

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years