В одномерном числовом массиве найти сумму квадратов отрицательных элементов

04.05.2011, 22:13. **Показов** 1002. **Ответов** 2

Здравствуйте.
Помогите пожалуйста с задачками, а то нибельмеса вобще

1.В одномерном числовом массиве найти сумму квадратов отрицательных элементов.
2.В элементарном числовом заменить все отрицательные элементы на обратные им и полученый масив отсортировать по возростанию.
Буду очень признателен

@Zimenko · 04.05.2011, 23:16

program massiv;
uses crt;
var a:array[1..20] of integer;
i,sum:integer;
begin
randomize;
for i:=1 to 20 do a[i]:=random(100)-50;
For i:=1 to 20 do
write(a[i]:4);
sum:=0;
For i:=1 to 20 do
if a[i]<0 then
inc(sum,sqr(a[i]));
writeln(a[i],' ');
writeln('сумма квадратов отрицательных элементов: ',sum) ;
end.

04.05.2011, 23:30

Спасибо, но не работает

JohnMay
		1
	В одномерном числовом массиве найти сумму квадратов отрицательных элементов 04.05.2011, 22:13. Показов 1002. Ответов 2 Метки нет (Все метки) Здравствуйте. Помогите пожалуйста с задачками, а то нибельмеса вобще 1.В одномерном числовом массиве найти сумму квадратов отрицательных элементов. 2.В элементарном числовом заменить все отрицательные элементы на обратные им и полученый масив отсортировать по возростанию. Буду очень признателен

@Zimenko 4 / 4 / 4 Регистрация: 04.05.2011 Сообщений: 7
	04.05.2011, 23:16	2
	program massiv; uses crt; var a:array[1..20] of integer; i,sum:integer; begin randomize; for i:=1 to 20 do a[i]:=random(100)-50; For i:=1 to 20 do write(a[i]:4); sum:=0; For i:=1 to 20 do if a[i]<0 then inc(sum,sqr(a[i])); writeln(a[i],' '); writeln('сумма квадратов отрицательных элементов: ',sum) ; end. 0

JohnMay
	04.05.2011, 23:30	3
	Спасибо, но не работает

Опции темы