Заполнить линейный массив из N элементов числами от -15 до 15 и вывести на экран сумму всех его отрицательных элементов

@adven · Регистрация: 09.12.2013

Заполнить линейный массив из N элементов числами от -15 до 15 и вывести на экран сумму всех его отрицательных элементов. Помогите)

@antibenzin · 09.12.2013, 19:48

Pascal

var a:array[1..1000] of integer;
i,s,n:integer;
begin
readln(n);
s:=0;
for i:=1 to n do
begin
a[i]:=random(31)-15;
write(a[i],' ');
if a[i]<0 then s:=s+a[i];
end;
writeln;
writeln(s);
end.

@adven 0 / 0 / 0 Регистрация: 09.12.2013 Сообщений: 6
		1
	Заполнить линейный массив из N элементов числами от -15 до 15 и вывести на экран сумму всех его отрицательных элементов 09.12.2013, 17:45. Показов 3591. Ответов 1 Метки нет (Все метки) Заполнить линейный массив из N элементов числами от -15 до 15 и вывести на экран сумму всех его отрицательных элементов. Помогите) 0

Опции темы

Заполнить линейный массив из N элементов числами от -15 до 15 и вывести на экран сумму всех его отрицательных элементов

Решение