1. значения элементов одномерного массива s размерности k уменьшить на значение его минимального элемента. 2. найти и напечатать первые положительные элементы строк матрицы а размерности m×k.

// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!

№1

begin
  var s:=ArrRandom(ReadInteger('k='),1,50); s.Println;
  var min:=s.Min;
  s.Transform(x->x-Min); s.Println
end.

Пример
k= 13
41 31 28 2 50 46 7 31 40 30 13 8 26
39 29 26 0 48 44 5 29 38 28 11 6 24

№2

begin
  var m:=ReadInteger('Количество строк в матрице:');
  var k:=ReadInteger('Количество столбцов в матрице:');
  Writeln('*** Исходная матрица [',m,',',k,'] ***');
  var a:=MatrRandom(m,k,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  Writeln('Первые положительные элементы в строках');
  a.Rows.Select(r->r.Where(x->x>0).Take(1)).SelectMany(x->x).Println
end.

Пример
Количество строк в матрице: 5
Количество столбцов в матрице: 8
*** Исходная матрица [5,8] ***
 -91 -83 -26   4 -40  33 -40  -6
  71 -87  -8  65  94 -19  59  -9
 -91 -17  69  32  30  90  63   4
 -53 -52  93   4 -34 -70 -75 -95
 -99 -42  95  69 -70 -62  39 -22

Первые положительные элементы в строках
4 71 69 93 95

Program one;uses crt;
const
    k = 10;
var
    S: array[1..k] of integer;
    i, min: integer;
begin
    randomize;
    writeln('Array:');
    for i := 1 to k do
    begin
        S[i] := random(20);
        write(S[i], ' ');
    end;    writeln;
        min := S[1];
     for i := 2 to k do
        if S[i] < min then
            min := S[i];
    writeln('Min: ', min);
    writeln('Result:');
    for i := 1 to k do
    begin
        S[i] := S[i] - min;
        write(S[i], ' ');
    end;
end.

program two;
uses crt;
const
    m = 5;
    k = 5;
var
    A: array[1..m] of array[1..k] of integer;
    i, j, min: integer;
begin
    randomize;
    writeln('Matrix:');
    for i := 1 to m do
    begin
        for j := 1 to k do
        begin
            A[i][j] := random(20) - 10;
            write(A[i][j], ' ');
        end;
        writeln;
    end;
    writeln('Result:');
    for i := 1 to m do
    begin
        for j := 1 to k do
        begin
            if A[i][j] > 0 then
            begin
                write(A[i][j], ' ');
                break;
            end;
        end;
    end;
end.

//Линейное уравнение от одной переменной вида ax+b=0
procedure lin1(a,b: real; var x: real);
  begin
    x:=-b/a;
  end;

//Линейное уравнение двух переменных вида ax+by+c=0
//имеет бесконечное множество решений (корней)
procedure lin2(a,b,c: real);
  var x,y: real; 
  n,i: integer;
  begin
    write ('Сколько пар корней вы хотите получить? ');
    readln (n);
    for i:=1 to n do begin
      write ('Введите x=');
      read (x);
      y:=(-c-a*x)/b;
      writeln ('   y=',y);
    end;
  end;
  
var
  a,b,c,x,y: real;
  n: integer;
begin
  write ('Сколько переменных в уравнении - 1 или 2? ');
  readln (n);
  if n=1 
    then begin
      write ('Введите коэффициент при х: а=');
      readln (a);
      write ('Введите свободный коэффициент b=');
      readln (b);
      lin1(a,b,x);
      writeln ('x=',x);
    end
    else begin
      write ('Введите коэффициент при х: а=');
      readln (a);
      write ('Введите коэффициент при y: b=');
      readln (b);
      write ('Введите свободный коэффициент c=');
      readln (c);
      lin2(a,b,c);
    end;
end.
пример 1
Сколько переменных в уравнении - 1 или 2? 1
Введите коэффициент при х: а=3
Введите свободный коэффициент b=9
x=-3
пример 2
Сколько переменных в уравнении - 1 или 2? 2
Введите коэффициент при х: а=2
Введите коэффициент при y: b=2
Введите свободный коэффициент c=-4
Сколько пар корней вы хотите получить? 3
Введите x=0
   y=2
Введите x=2
   y=0
Введите x=-2
   y=4

#include <stdlib.h>

#include <time.h>

#include <iostream>

using namespace std;

#define N 16

void main()

{

   int randomNumbers[N];

   srand(time(NULL));

   for (int i = 0;i < N; i++)

   {

       randomNumbers[i] = rand() % 40 - 20;

       cout << "randomNumber[" << i << "] = " << randomNumbers[i] << endl;

   }

   cout << endl;

   int counter = 0;

   for (int i = 0; i < N; i++)

   {

       if (randomNumbers[i] < 0)

       {

           counter++;

       }

   }

   cout << "counter = " << counter << endl;

}