Обчислити і вивести на екран значення функції Y=Y(x) для усіх x із діапазону (XL, XR) з кроком k (k - id1589325420230407 от vovsanna 07.04.2023 03:31

Question

Информатика: Обчислити і вивести на екран значення функції Y=Y(x) для усіх x із діапазону (XL, XR) з кроком k (k XR–XL). Для усіх значень x в яких функція Y(x) не існує вивести повідомлення Функція не існує . Числа XL, XR, k користувач вводить з клавіатури. Значення функції виводити з точністю до 2 цифр після десяткової крапки.

vovsanna · 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 ответил