profile
Опубликовано 5 лет назад по предмету Информатика от пророк1998таня

заменить максимальный по модулю отрицательный элемент нулем

  1. Ответ
    Ответ дан Gleb1Kosyrev
    //Визуально разделил циклы, чтобы было более читаемо 

    var ar:array[1..10] of integer;
    max,i:integer;
    begin;
    randomize; //чтобы random() работал как надо
    writeln('Array');


    for i:=1 to 10 do
    begin;
    ar[i]:=random(-10,10); //случайное число от -10 до 10
    write(ar[i]:4);
    end;


    for i:=1 to 10 do //"проходим" через весь массив
    if (ar[i]<0) and (max<abs(ar[i])) then max:=abs(ar[i]);
    {если элемент массива меньше нуля и его модуль больше максимума тогда записать модуль этого числа в максимум}


    writeln;
    writeln('Max:-',max); //выводим на всякий случай максимум


    writeln('Final array:');
    for i:=1 to 10 do //снова проходим по всему массиву
    begin;
    if ar[i]=-max then ar[i]:=0; 
    {если элемент равен отрицательному максимуму(мы брали модуль) присвоить ему 0}
    write(ar[i]:4);
    end;
    end.
    1. Ответ
      Ответ дан пророк1998таня
      а как мне ее объяснить
    2. Ответ
      Ответ дан Gleb1Kosyrev
      Сейчас напишу комментарии.
    3. Ответ
      Ответ дан Gleb1Kosyrev
      Написал.
Самые новые вопросы