6. Шестиклассник очень торопился, когда печатал ответ на вопрос онлайн-викторины «Кто составил самую - id1569012720200926 от vikaivanova12 26.09.2020 16:33

Question

Информатика: 6. Шестиклассник очень торопился, когда печатал ответ на вопрос онлайн-викторины «Кто составил самую первую в мире программу?», и допустил много ошибок: Агn Авгцста Давлецс. Увидев это, одноклассница не вытерпела и взялась исправлять. Курсор мигал в конце строки. Она последовательно нажала на клавиши клавиатуры: и , BackSpace, й, 8 , , , , , , Del, Л, 8 , , , , , BackSpace, y, Home, , Del, Del, да Что у нее получилось?​

vikaivanova12 · Accepted Answer

Сделано на паскале, тот же делфи, но возможно придется разтосовать кусками, в зависимости от тго что именно надо получить в конце

const
    n = 25;

var
    i, imax: integer;
    s, s7: real;
    a, b: array[1..n] of real;

begin
    imax := 1;
    for i := 1 to n do
    begin
        a[i] := random(10 + 50) - 10;
        write(a[i], ' ');

        s := s + a[i];
        if (a[i] > 0) and (round(a[i]) mod 7 = 0) then
            s7 := s7 + a[i];
        s := s + a[i];
        if a[imax] < a[i] then imax := i;
    end;
    writeln();

    a[imax] := s / n;

    for i := 1 to n do
        write(a[i], ' ');
    writeln();

    writeln(s7);
end.

MOGZ ответил