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.

0 0

4 года назад

Кто такой норберт виннер

kniaz [14]

Американский Учёный, Выдающийся Математик и философ, основоположник кибернетики и теории искуственного интеллекта.

0 0

3 года назад

Прочитать ещё 2 ответа

Написать тест на языке программирования С++: Пример: 2+2=4? Да - верно Нет - не верно 2 вопроса.

Гриша 333 [343]

Int main ...
int a,b,c;
cout <<" 2+2=4? 1-да, 2 - нет " << endl;
cin>>a;
if (a == 1) { cout <<" Верно " << endl;}
if (a==2) { cout <<" Ошибка " << endl;}
cout <<" 3+2=5? 1-да, 2 - нет " << endl;
cin>>a;
if (a == 1) { cout <<" Верно " << endl;}
if (a==2) { cout <<" Ошибка " << endl;}
system ("pause");
return 0;

0 0

1 год назад

Прочитать ещё 2 ответа

Помогите, где можно создать автобиографию онлайн? а то лень

SWORD001

Ucoz.ru тебе в помощь)

0 0

4 года назад