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

[bbk_serg]

Здраствуйте!!
У меня єсть задачка, помогите решить.
Найти сумму квадратов отрицательных 20 элементов массива.

[alex_fcsm]

var i:integer;
     sum:longint;
     a:array[1..20] of integer;

begin
for i:=1 to 20 do
 read(a[i]);
sum:=0;
for i:=1 to 20 do
 if a[i]<0 then sum:=sum+sqr(a[i]);
writeln(sum);
end.

Если Вам нужен паскаль.....

[Stilet]

Примерно так:

Var k,i:byte;a:array[1..100] of integer;sum:integer;
begin k:=0;sum:=0;
for i:=1 to length(a) do begin
 readln(a[i]);
 if (a[i]<20)and(i<20) do sum:=sum+sqr(a[i]);
end;
writeln(sum);
end;

alex_fcsm

Подглядывал? ))))))))))))

[Sazary]

Насколько понял, есть массив из 20 элементов и нужно найти сумму квадратов отрицательных?

uses crt;
const N=20;
var
a : array[1..N] of integer;
i : integer;
sum : longint;
begin
clrscr;
randomize;
for i:=1 to N do
  begin
  a[i] := random(20)-9;
  write(a[i]:4);
  if i mod 10 = 0 then writeln;
  end;
writeln('-----');
sum := 0;
for i:=1 to n do
  if a[i]<0 then sum := sum + sqr(a[i]);

writeln('Sum= ',sum);
readln;
end.

alex_fcsm, Stilet о_О

[alex_fcsm]

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

Подглядывал? ))))))))))))

Улыбнитесь, вас снимает скрытая камера

[bbk_serg]

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

Насколько понял, есть массив из 20 элементов и нужно найти сумму квадратов отрицательных?

uses crt;
const N=20;
var
a : array[1..N] of integer;
i : integer;
sum : longint;
begin
clrscr;
randomize;
for i:=1 to N do
  begin
  a[i] := random(20)-9;
  write(a[i]:4);
  if i mod 10 = 0 then writeln;
  end;
writeln('-----');
sum := 0;
for i:=1 to n do
  if a[i]<0 then sum := sum + sqr(a[i]);

writeln('Sum= ',sum);
readln;
end.

alex_fcsm, Stilet о_О

Єто на Delphi потянет???

[alex_fcsm]

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

Єто на Delphi потянет???

Это на Паскале, но путем не хитрых преобразований можно и в Delphi переделать

[bbk_serg]

Огромное всем СПАСИБО!!!