Valerii276
?>

Що визначають значення властивостей top left name color text enabled і visible для поля

Информатика

Ответы

nst-33764
Const
    n = 100;

var
    i, k_max, max, neg_max: integer;
    a: array[1..n] of integer;

begin
    for i := 1 to n do
    begin
        a[i] := random(100) - 50;
        write(a[i], ' ');
    end;
    writeln();
    
    max := a[1];
    k_max := 1;
    neg_max := 0;
    for i := 1 to n do
    begin
        if a[i] > max then begin
            max := a[i];
            k_max := 1;
        end;
        if a[i] = max then k_max := k_max + 1;
        if (a[i] < 0) and (abs(a[i]) > abs(neg_max)) then
            neg_max := a[i];
    end;
    
    writeln('Max: ', max, ' k=', k_max);
    writeln('Positive: ', max);
    writeln('Negative: ', neg_max);
end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Що визначають значення властивостей top left name color text enabled і visible для поля
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

MDubovikov73
Вадим
samirmajbubi
Александрович_Викторовна
Радецкая264
keti0290103
rsd737
Романенко
sorokinae
oskon008
fedchenkoofficial
Шабунина-Евгения1883
Лилит_Шутова
gassvetlana
Хачатурович978