Register

OR

Do you already have an account? Login

Login

OR

Don't you have an account yet? Register

Newsletter

Submit to our newsletter to receive exclusive stories delivered to you inbox!

Онтонио Веселко

Написать программу на языке паскаль.
Задача:
Дано 10 чисел, найти сумму положительных и сумму отрицательных

более месяца назад
Просмотров : 18    Ответов : 1   

Лучший ответ:

Var
   A,Sp,So:real;
   i:integer;
Begin
Sp:=0;
So:=0;
For i:= 1 to 10 do
    Begin
    Read(A);
    if A<0 then so:=So+A
    else Sp:=Sp+A;
    End;
WriteLn(Сумма отрицательных: ,So);
WriteLn(Сумма положительных: ,Sp);
End.

более месяца назад
Ваш ответ:
Комментарий должен быть минимум 20 символов
Чтобы получить баллы за ответ войди на сайт
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров и нажмите кнопку Просмотр анимации.


Другие вопросы:



Главный Попко
Петя и Коля получили на лето большое задание по математике, состоящее из одинакового количества задач. После того как Петя решил 140 задач, а Коля- 176 задач, Пете осталось решить в четыре раза больше задач, чем Коле. Сколько задач должен решить каждый мальчик за лето?
более месяца назад
Смотреть ответ   Просмотров : 21    Ответов : 1   



Таня Масян
Лабораторная работа по биологии за 8 класс установление зависимости между нагрузкой и уровнем энергетического обмена по результатам и функциональной пробы с задержкой дыхания до и после нагрузки(может быть выполнена дома)

Помогите пожалуйста!!!
более месяца назад
Смотреть ответ   Просмотров : 24    Ответов : 0