Валя создала растровый графический файл, размер которого по горизонтали 800 пикселей, и залила его линейным - id458423220210116 от Mariyaftolov 16.01.2021 20:21

Question

Информатика: Валя создала растровый графический файл, размер которого по горизонтали 800 пикселей, и залила его линейным градиентом слева направо. цвета градиента изменялись так: крайний правый столбец был залит первым цветом, следующие 2 столбца пикселей - вторым цветом, следующие 4 столбца пикселей - третьим и так далее, пока файл не заполнился. известно, что любые две соседние полосы градиента отличались на 4 тона. так, у крайней правой полосы градиента в формате rgb был цвет 1055bb, а у второй справа - 1055b7.

Mariyaftolov · Accepted Answer

Var
    a: array[1..10]of integer;
    i, k, n: integer;

begin
    Writeln('Исходный массив:');
    Randomize;
    for i := 1 to 10 do
    begin
        a[i] := Random(51) - 25;
        Write(a[i], ' ');
    end;
    Writeln;

    n := 0;
    k := 0;
    for i := 10 downto 1 do
        if a[i] > 0 then
        begin
            k := k + 1;
            if k = 2 then n := i;
        end;

    if k = 0 then
        Writeln('В массиве нет положительных элементов!')
    else
        Writeln('Предпоследний положительный элемент: a[', n, '] = ', a[n]);

    Readln;
end.

MOGZ ответил