Подготовьте презентацию минимум из 5 слайдов на тему "Я ученик Домашней школы". Предусмотрите титульного слайда,
слайда с содержанием, слайда со списком используемой литературы (не менее 5 пунктов). Добавьте анимацию для смены
слайдов и для объектов на слайдах

program array3;

const

 L = 1;

 H = 10;

var

 n, i, s: Integer;

 A1, A2, A3: array [L..H] of Integer;

begin

 Randomize;

 for i := L to H do begin

   A1 [i] := Random (10);

   A2 [i] := Random (10);

   A3 [i] := Random (10);

 end;

 WriteLn ('Первый массив:');

 for i := L to H do

   Write (A1 [i], ' ');

 WriteLn;

 WriteLn ('Второй массив:');

 for i := L to H do

   Write (A2 [i], ' ');

 for i := L to H do

   if (i < 2) or (i > 7) then

     A3 [i] := A1 [i]

   else

     A3 [i] := A2 [i];

 WriteLn;

 WriteLn ('Результирующий массив:');

 for i := L to H do

   Write (A3 [i], ' ');

 WriteLn;

 ReadLn;

end.

Объяснение:

const

 L = 1;

 H = 10;

устанавливаются размерности для массивов, здесь можно их изменить

//PascalABC.NET v3.3 1633

var arr: array [1..6, 1..6] of integer;

begin

 for var i:=1 to 6 do

   for var j:=1 to 6 do

     arr[i, j]:=random(-49, 50);

 writeln('Исходный массив: ');

 for var i:=1 to 6 do

     arr[i].PrintLn(', ');

 var num:=0;

 for var i:=1 to 6 do

   if arr[i, 2] < 0 then num += 1;

 writeln('Количество отрицательных элементов второго столбца: '+num);

 for var i:=1 to 6 do

   for var j:=1 to 6 do

     if arr[i, j] > 0 then arr[i, j]:=-49;

 writeln('Новый массив: ');

 for var i:=1 to 6 do

     arr[i].PrintLn(', ');

end.