. По заданным координатами тек. А и В вых, так
y = f(x + 2,5) - 1 - 1.
ка AB.
Подсказка: Расстояние между толиками А.
выражается формулой d = (-x) - би, -
Пример входных данных
Прикриер выхалык
ка2
yb7​

Const
  n=5;
var
  x:array[1..n, 1..n] of integer;
  i,j,k:integer;
begin
  Randomize;
  Writeln('Исходный массив');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      x[i,j]:=Random(50)+1;
      Write(x[i,j]:4)
    end;
    Writeln
  end;
  k:=0; i:=2;
  while i<=n do begin
    for j:=1 to n do
      if x[i,j] mod 2=0 then Inc(k);
    i:=i+2
  end;
  Writeln('Количество четных элементов в четных строках равно ',k)
end.

Тестовое решение:
Исходный массив
   1  14  23  17  39
  27  37  28  28  21
  10   6   3  38  22
   1  31  27  50  42
  16  43  27  16  17
Количество четных элементов в четных строках равно 4

Var
  a,x:real;
begin
  Write('Введите через пробел x и a: ');
  Read(x,a);
  Writeln((6+x)/(3-a))
end.
 
Результат выполнения программы:
Введите через пробел x и a: 5.18 4.65
-6.77575757575757

var
  i,d,n,k,s:integer;
begin
  Write('Укажите количество чисел: '); Read(n);
  Writeln('Вводите числа: ');
  k:=0; s:=0;
  for i:=1 to n do
  begin
    Read(d);
    if (d mod 3)=0 then Inc(k)
    else s:=s+d
  end;
  Writeln('Количество кратных 3 равно ',k);
  Writeln('Сумма некратных 3 равна ',s)
end.

Тестовое решение:
Укажите количество чисел: 7
Вводите числа:
4 18 6 45 7 20 8
Количество кратных 3 равно 3
Сумма некратных 3 равна 39