Question

ПОМОГИТЕ СРОЧНО С ЗАДАЧЕЙ НА PASCAL, ПОЖАЛУЙСТА!!!

Answer 1

Ответ:

var

i,j,sum:integer;

a:array[1..10,1..10] of integer;

begin

randomize;

   //Заполним массив случайными числами

    for i:=1 to 10 do

       for j:=1 to 10 do

           begin

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

           end;

   

   //Выведем массив

   for i:=1 to 10 do

       begin

       for j:=1 to 10 do

           begin

               write(a[i,j],'   ');

           end;

           writeln;

           end;

           

   //Вычислим сумму

   sum:=0;

   for i:=1 to 10 do

       begin

           if i mod 2 = 0 then

               for j:=1 to 10 do

                   begin

                       if a[i,j]<0 then sum:=sum+a[i,j]*a[i,j];

                   end;

           

       end;

           

    writeln('Result: ',sum);

Объяснение:

https://onlinegdb.com/SyR-nu_fU

//Ввод с клавиатуры

var

i,j,sum:integer;

a:array[1..10,1..10] of integer;

begin

randomize;

   //Заполним массив случайными числами

    for i:=1 to 10 do

       for j:=1 to 10 do

           begin

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

              //сделаем ввод с клавиатуры

              readln(a[i,j]);

           end;

   

   //Выведем массив

   for i:=1 to 10 do

       begin

       for j:=1 to 10 do

           begin

               write(a[i,j],'   ');

           end;

           writeln;

           end;

           

   //Вычислим сумму

   sum:=0;

   for i:=1 to 10 do

       begin

           if i mod 2 = 0 then

               for j:=1 to 10 do

                   begin

                       if a[i,j]<0 then sum:=sum+a[i,j]*a[i,j];

                   end;

           

       end;

           

    writeln('Result: ',sum);

   

end.