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

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])<i*i then s:=s+a[i];   
  end; 
  writeln;
  writeln('сумма: ',s);
end.

На паскале

program zadanije_tri;

var a, b, c:integer;

begin

 writeln('Введите первое число.');

 readln(a);

 writeln('Введите второе число.');

 readln(b);

 if a=b then

   begin

   c:=a*a+b*b;

   writeln('Введённые числа равны, сумма их квадратов равна ',c,'.');

   end

 else

   begin

   c:=(a+b)*(a+b);

   writeln('Введённые числа не равны, квадрат их суммы равен ',c,'.');

   end

end.

Объяснение:

Если ввести равные ЦЕЛЫЕ числа, то программа выдаст сумму их квадратов, если ввести разные числа, то программа выдаст квадрат их суммы.

В объяснении

Объяснение:

program zadacha;

const n= 6, m=6;

var a:array[1..n, 1..m] of integer;

   i, j, s, k: integer;

begin

  RANDOMIZE;

for i:=1 to n do

           begin

              for j:=1 to m do

             begin

              a[i,j]:= random (100)-50;

              write(a[i,j]:5);

           end;

           writeln;

             end;  

s:=0;  

k:=0;

for i:=1 to n do

for j:=1 to m do

 if i>j then

        begin

          k:=k+1;

          s:=s+a[i,j];

        end;

writeln('Сумма=',s);

writeln('Количество=',k);

readln;

end.