Заполните массив случайными числами в диапазоне 0..4 и выведите на экран номера всех элементов, значение которых равно х (х вводится с клавиатуры)

1 задача:

#include <bits/stdc++.h>

using namespace std;

int main() {

   long long a;

   cin >> a;

   if (a < 7) cout << "Yes";

   else if (a > 10) cout << "No";

   else cout << "Error";

   return 0;

}

2 задача:

#include <bits/stdc++.h>

using namespace std;

int main() {

   long long a, b;

   cin >> a >> b;

   if (a > b) cout << "yes";

   else {

       long long c = a;

       a = b;

       b = c;

       cout << a << ' ' << b << endl;

   }

   return 0;

}

3 задача:

#include <bits/stdc++.h>

using namespace std;

int main() {

   long long a, b;

   cin >> a >> b;

   if (a * b >= 0) cout << "YES";

   else cout << "NO";

   return 0;

}

ответ:var err, right, answer : integer;

BEGIN

err := 0; right := 0;

writeLn('Сейчас Вам будет предложен тест по архитектуре. ');

writeLn('К каждому вопросу три варианта ответа. ');

writeLn('Вы должны ввести номер правильного ответа и нажать <Еnter>');

writeLn;

writeLn('Архитектор Исаакиевского собора: ');

writeLn('1. Доменико Трезини');

writeLn('2. Огюст Монферран');

writeLn('3. Карл Росси');

Write('Ваш ответ: ');ReadLn(answer);

if answer = 2 then begin

WriteLn('Правильно');

right := right +1;

end

else begin

WriteLn('Неправильно');

err := err + 1;

end;

writeLn;

writeLn('Архитектор Зимнего дворца: ');

writeLn('1. Франческо Бартоломео');

writeLn('2. Карл Росси');

writeLn('3. Огюст Монферран');

Write('Ваш ответ: ');ReadLn(answer);

if answer = 2 then begin

WriteLn('Правильно');

right := right +1;

end

else begin

WriteLn('Неправильно');

err := err + 1;

end;

writeLn;

writeLn('Невский проспект получил свое название: ');

writeLn('1. По имени реки, на которой стоит Санк-Петербург');

writeLn('2. По имени близко расположенной Александро-Невской лавры');

writeLn('3. В память о знаменитом полководце - Александре Невском');

Write('Ваш ответ: ');ReadLn(answer);

if answer = 2 then begin

WriteLn('Правильно');

right := right +1;

end

else begin

WriteLn('Неправильно');

err := err + 1;

end;

WriteLn('Правильных ответов: ', right);

WriteLn('Неправильных ответов: ', err);

END.

Объяснение:

P.S. Это конечно не то,но думаю по аналогию сможешь составить