Turbo pascal. определите значение целочисленных переменных a и b после выполнения фрагмента программы: a : = 42; b : = 14; a : = a div b; b : = a*b; a : = b div a;

A: = 42; b : = 14; a : = a div b; -> a: =целая часть 42/14, т.е. 3 b : = a*b; -> b: =3*14, т.е. 42a : = b div a; -> a: =целая часть 42/3, т.е. 14ответ: a=14, b=42

1)

#include <iostream>

#include <vector>

using namespace std;

int main(){

   srand(time(NULL));

   int n;

   cin >> n;

   vector<int> a(n);

   for(auto &i : a)

       i = rand() % 1001 - 500;

   pair<int,int> k1,k2;

   k1 = k2 = {-1e9,-1};

   for(int i = 0; i < n; i++){

       if(a[i] > k1.first){

           k2 = k1;

           k1 = {a[i],i+1};

       }

       else if(a[i] > k2.first)

           k2 = {a[i],i+1};

   }

   cout << k1.second << " " << k2.second;

}

2)

#include <iostream>

#include <vector>

using namespace std;

int main(){

   int n;

   cin >> n;

   vector<int> a(n);

   for(auto &i : a)

       cin >> i;

   int cnt = 1, mx = a[0];

   for(int i = 1; i < n; i++){

       if(a[i] == mx)

           cnt++;

       else if(a[i] > mx){

           cnt = 1;

           mx = a[i];

       }

   }

   cout << cnt;

}

Алг массив нач   цел n = 30   целтаб a[1: n]   цел i, k, b   лог b1, b2     нц для i от 1 до n     вывод "a[",i,"] = "     ввод a[i]   кц   вывод нс     b1: =да   b2: =да   нц для i от 1 до n-1     если a[i]> a[i+1] то       b1: =нет     все     если a[i]< a[i+1] то       b2: =нет     все   кц   если b1=да то       вывод "массив по возрастанию", нс   все   если b2=да то       вывод "массив по убыванию", нс   все   k: =0   нц для i от 1 до n     если a[i]> 9 то       k: =k+1     все   кц   вывод "k = ",k, нс   нц для i от 1 до div(n,2)     b : = a[i]     a[i] : = a[div(n,2)+i]     a[div(n,2)+i] : = b   кц   вывод "измененный массив: ", нс   нц для i от 1 до n     вывод a[i], " "   кц кон