Составе блок- схему и программу, используя структуру ветвления. (Только 7 сделайте

//PascalABC.NET 3.1 сборка 1239
const
    n = 10;
    m = 10;

var
    i, j: integer;
    a, b: array[1..n, 1..m] of integer;
    f: boolean;

begin
    for i := 1 to n do
    begin
        for j := 1 to m do
        begin
            a[i, j] := random(50);
            write(a[i, j]:3, ' ');
        end;
        writeln;
    end;
    writeln;
    
    for i := 1 to n do
    begin
        f := false;
        for j := 1 to m do
        begin
            if not f and (a[i, j] mod 2 = 1) then begin
                a[i, j] := 2 * a[i, j];
                f := true;
            end;
            write(a[i, j]:3, ' ');
        end;
        writeln;
    end;
end.

#include <algorithm>

#include <array>

#include <iostream>

int main()

{

std::array<int, 6> arr{ 13, 90, 99, 5, 40, 80 };

std::cout « "Enter a value to search for and replace with: ";

int search{};

int replace{};

std::cin » search » replace;

// Проверка пользовательского ввода должна быть здесь

// std::find() возвращает итератор, указывающий на найденный элемент (или на конец контейнера).

// Мы сохраним его в переменной, используя автоматический вывод типа итератора

auto found{ std::find(arr.begin(), arr.end(), search) };

// Алгоритмы, которые не нашли то, что искали, возвращают итератор, указывающий на конец контейнера.

// Мы можем получить доступ к этому итератору, используя метод end()

if (found == arr.end())

{

std::cout « "Could not find " « search « '\n';

}

else

{

// Перезаписываем найденный элемент

*found = replace;

}

for (int i : arr)

{

std::cout « i « ' ';

}

std::cout « '\n';

return 0;

}