Сложить отдельно положительные, отдельно отрицательные элементы массива

@mir23 · Регистрация: 25.06.2012

Студворк — интернет-сервис помощи студентам

2.Напишите программу, которая сначала вводит десять чисел в одномерный массив, а затем складывает отдельно все положительные элементы этого массива, отдельно отрицательные элементы и выдает полученные результаты.

@Pahanuch · 25.06.2012, 17:43

Сообщение от mir23

2.Напишите программу, которая сначала вводит десять чисел в одномерный массив, а затем складывает отдельно все положительные элементы этого массива, отдельно отрицательные элементы и выдает полученные результаты.

Pascal

uses crt;
var
 i,summa_p,summa_otr: integer;
  mas:array[1..10] of integer;
begin
writeln ('Введите элементы массива');
For i:=1 to 10 do
begin
read(mas[i]);
end;
For i:=1 to 10 do
begin
if (mas[i]>0) then summa_p:=summa_p+mas[i];
if (mas[i]<0) then summa_otr:=summa_otr+mas[i];
end;
writeln ('Сумма положительных элементов массива = ', summa_p);
writeln ('Сумма отрицательных элементов массива = ', summa_otr);
end.

@mir23 0 / 0 / 0 Регистрация: 25.06.2012 Сообщений: 9
		1
	Сложить отдельно положительные, отдельно отрицательные элементы массива 25.06.2012, 17:06. Показов 2242. Ответов 1 Метки нет (Все метки) 2.Напишите программу, которая сначала вводит десять чисел в одномерный массив, а затем складывает отдельно все положительные элементы этого массива, отдельно отрицательные элементы и выдает полученные результаты. 0

Опции темы

Сложить отдельно положительные, отдельно отрицательные элементы массива

Решение