Спаскаля. 1) определить, пересекаются ли параболы у=ах^2+bc+c и y=dx^2+mx+n. если пересекаются, то найти точку пересечения. 2) записать элементы массива х, удовлетворяющие условию 1≤xi≤2, подряд в массив y. поменять местами максимальный и минимальный элементы в массиве y. 3) заменить строку матрицы р (n, m) с минимальной суммой элементов на строк, где находится максимальный элементы матрицы.

program parabolas; uses crt; var  a, b, c, d, m, n, dis, x1, x2 : real; begin  writeln('введите коэфициенты первой параболы');   write('a='); readln(a);   write('b='); readln(b);   write('c='); readln(c);   writeln('введите коэфициенты второй параболы');   write('d='); readln(d);   write('m='); readln(m);   write('n='); readln(n);   writeln('*** alphaues is ***');   if a=d then      if b=m then          if c=n then               writeln('параболы ! ')          else              writeln('параболы не пересекаются! ')      else           begin              x1: =(c-n)/(b-m);               writeln('параболы пересекаются в 1-й точке: ',x1,' ',a*x1*x1+b*x1+c);           end  else      begin          dis: =(b-m)*(b-m)-4*(a-d)*(c-n);           if dis> 0 then               begin                  x1: =((m-b)+sqrt(dis))/(2*(a-d));                   x2: =((m-b)-sqrt(dis))/(2*(a-d));                   writeln('параболы пересекаются в 2-x точкax: ');                   writeln(x1,' ',a*x1*x1+b*x1+c);                   writeln(x2,' ',a*x2*x2+b*x1+c);               end          else              if dis=0 then                 begin                  x1: =(m-b)/(2*(a-d));                   writeln('параболы пересекаются в 1-й точке: ',x1,' ',a*x1*x1+b*x1+c);               end              else writeln('параболы не пересекаются! ');     end; end.     

 

program massxy; uses crt; const n = 20; var  x,y: array [1..n] of real;   i,k, maxnum, minnum: integer;   max, min,temp: real; begin  k: =1;   randomize;   for i: =1 to n do      begin          x[i]: =random(101)-50;           if (1< =x[i]) and (x[i]< =2) then              begin                  y[i]: =x[i];                   k: =k+1;               end;       end;   writeln('*** alphaues is ***');   max: =y[1];   maxnum: =1;   min: =y[1];   minnum: =1;   for i: =1 to k do      begin          if max< y[i] then              begin                  max: =y[i];                   maxnum: =i;               end;           if min> y[i] then              begin                  min: =y[i];                   minnum: =i;               end;                 end;       temp: =y[maxnum];       y[maxnum]: =y[minnum];       y[minnum]: =temp;   writeln('массив y состоит из ',k,' элементов: ');   for i: =1 to k do      write(y[i],'  '); end.program matrixp; uses crt; const n=10; const m=8; var  p: array[1..n,1..m] of integer;   sum: array[1..n] of integer;   st: array[1..m] of integer;   i,j,tempsum,min,max,minnum,maxnum : integer; begin  randomize;   {ввод и вывод матрицы}  writeln('начальная матрица: ');   for i: =1 to n do      begin          for j: =1 to m do              begin                  p[i,j]: = random(100);                   write(p[i,j]: 5);               end;             writeln;       end;   writeln('*** alphaues is ***');   {нахождение сумм строк}  for i: =1 to n do         begin          tempsum: =0;           for j: =1 to m do              tempsum: =tempsum+p[i,j];           sum[i]: =tempsum;       end;   maxnum: =1;   tempsum: =sum[1];   for i: =1 to n do         if tempsum> sum[i] then           begin              tempsum: =sum[i];               minnum: =i;           end;     writeln('min сумма в ',minnum,'-й строке: ',sum[minnum]);   {нахождение max элемента матрицы}  max: =p[1,1];   for i: =1 to n do      for j: =1 to m do          begin              if max< p[i,j] then max: =p[i,j];               maxnum: =i;           end;   writeln('max элемент ',max,' находится в ',maxnum,'-й строке');   for j: =1 to m do      begin          st[j]: =p[maxnum,j];           p[maxnum,j]: =p[minnum,j];           p[minnum,j]: =st[j];       end;   {вывод матрицы}  writeln('результат: ');   for i: =1 to n do      begin          for j: =1 to m do              begin                  write(p[i,j]: 5);               end;             writeln;       end;   end.

Программа:

Pascal:

var

 arr: array[1..3, 1..4] of integer;

 i, j, n, count: integer;

begin

 write('Введите число: '); readln(n);  // ввод числа n

 for i := 1 to 3 do

   for j := 1 to 4 do begin

     arr[i, j] := random(100);  // заполнение массива случайными числами от 0 до 100

     if arr[i, j] > n then  // если число больше заданного числа, то...

       count += 1;  // увеличиваем значение переменной count на 1

   end;

 writeln('Массив: ', arr);  // вывод массива

 writeln('Чисел, больше ', n, ': ', count);  // вывод кол-ва элементов, больше n.

end.

Чтобы заполнить массив, для начала нужно выделить ему память. После этого запрашивает значение "заданного числа" n. После выделения памяти и запроса числа нужно в двойном цикле обойти все ячейки массива (i - номер строки, j - номер столбца). После начала цикла сначала заполняем массив случайными числами (от 0 до 100), а после находим количество элементов, больше заданного числа. В конце выводим сам массив и кол-во элементов, больше заданного числа.

#include <iostream>

#include <vector>

using namespace std;

void solve1(){

   const int N = 7, X = 6;

   int cnt = 0;

   vector<int> a(N);

   for(auto &i: a) cin >> i;

   for(auto &i: a) cnt += (i > X);

   cout << cnt;

}

void solve2(){

   const int N = 12;

   int res = 1;

   vector<int> p(N);

   for(auto &i: p) cin >> i;

   for(auto &i: p)

       if(!(i & 1))

           res *= i;

   (res == 1) ? cout << 0 : cout << res;

}

void solve3(){

   const int N = 17;

   int x, ans = 0;

   vector<int> t(N);

   for(auto &i: t) cin >> i;

   cin >> x;

   while(++x < N)

       ans += t[x];

   cout << ans;

}

int main(){

   //solve1();  //task1

   //solve2();  //task2

   //solve3(); //task3

}