Напишите ** паскале. Задание: Найти сумму тех элементов массива А[1 .. N], которые...

Question

Напишите на паскале. Задание: Найти сумму тех элементов массива А[1 .. N],
которые удовлетворяют условию |Ai| < i2.

Answer 1

Const m = 100;
var a: array[1..m] of integer;
    i,n,s: integer;
begin
  write('N = ');  readln(n);
  randomize;
  writeln('массив:');
  s:=0;
  for i:=1 to n do
  begin
    a[i]:=random(-50,50);
    write(a[i],' ');
    if abs(a[i])  end; 
  writeln;
  writeln('сумма: ',s);
end.