Задачи: 1.Дано начальное положение автомобиля на координатной прямой – A (одна клетка – 1 км.). Затем автомобиль начал движение. Сначала он двигался со скоростью v1 км/ч вправо n1 часа, затем v2 км/ч влево n2 часа. Найти конечное положение автомобиля.

2*.«Игра в цифры». Петя и Ваня решили поиграть в одну придуманную ими игру. Один из мальчиков говорит 4-хзначное число, а другой должен быстро найти сумму 1-ой и 3-ей цифры этого числа автоматизировать процесс игры.

3*.Знайка, Пилюлькин и Поночка решили научить Незнайку умножению. После урока они задали ему задачу: нужно в году рождения автора данной книги из библиотеки перемножить все цифры Незнайке составить такую программу.

Free Pascal

var

 a : array of array of integer;

 b : array of integer;

 s, i, j, n, m : integer;

begin

 writeln('Введите кол-во строк:');

 readln(m);

 writeln('Введите кол-во столбцов:');

 readln(n);

 randomize;

 setlength(a, n);

 setlength(b, m);

 for i:=0 to n-1 do

   setlength(a[i], m);

 for j:=0 to m-1 do begin

   s:=0;

   for i:=0 to n-1 do begin

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

     if a[i,j] <0 then inc(s);

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

   end;

   b[j]:=s;

   writeln();

 end;

 writeln('--------------------------');

 for j:=0 to m-1 do

   writeln(j+1,' строка = ', b[j]);

end.

##

var h := MatrRandom(5, 5, -7, 7);

h.Println(4);

Print('Произведение положительных элементов первой строки массива равно',

  h.Row(0).Where(t -> t > 0).Product)

------------------------

##

var h := MatrRandom(5, 5, -7, 7);

h.Println(4);

h.Transform((v, i, j) -> j.IsEven and (v < 0) ? 100 : v);

Println('Результат замены отрицательных элементов в нечетных столбцах');

h.Println(4)

---------------------

##

var h := MatrRandom(5, 5, -7, 7);

h.Println(4);

var a := h.ElementsWithIndices.Where(t -> t[2] > t[1]).Select(t -> t[0]).ToArray;

Println('Массив из элементов, стоящих над главной диагональю');

a.Print