vadimkakuz200
26.09.2020 10:16

Что такое оглавление? *

Абзац в документе

Список названий

Список тем в документе, структурный элемент текстового документа

Список источников информации и дополнительных материалов

Список литературы

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
elnx
29.07.2020 17:14

хаха

Объяснение:

Привет я Магдалена, практикую привороты на любимого и многое другое. Недавно начала, поэтому бесплатно первый сеанс, даю советы и обучаю. Если интересно

Пиши, это не враньё и есть несколько отзывов, пока что не много.Привет я Магдалена, практикую привороты на любимого и многое другое. Недавно начала, поэтому бесплатно первый сеанс, даю советы и обучаю. Если интересно

Пиши, это не враньё и есть несколько отзывов, пока что не много.Привет я Магдалена, практикую привороты на любимого и многое другое. Недавно начала, поэтому бесплатно первый сеанс, даю советы и обучаю. Если интересно

Пиши, это не враньё и есть несколько отзывов, пока что не много.Привет я Магдалена, практикую привороты на любимого и многое другое. Недавно начала, поэтому бесплатно первый сеанс, даю советы и обучаю. Если интересно

Пиши, это не враньё и есть несколько отзывов, пока что не много.Привет я Магдалена, практикую привороты на любимого и многое другое. Недавно начала, поэтому бесплатно первый сеанс, даю советы и обучаю. Если интересно

Пиши, это не враньё и есть несколько отзывов, пока что не много.Привет я Магдалена, практикую привороты на любимого и многое другое. Недавно начала, поэтому бесплатно первый сеанс, даю советы и обучаю. Если интересно

Пиши, это не враньё и есть несколько отзывов, пока что не много.

0,0(0 оценок)
Ответ:
dragons55u
04.01.2022 15:49
//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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота