Дан одномерный массив p[n] найти максимальный элемент и заменить его нулем
166
500
Ответы на вопрос:
Var ar: array of integer; n,max,maxi,i: integer; begin; randomize; readln(n); setlength(ar,n+1); writeln('first array: '); for i: =1 to n do begin; ar[i]: =random(100); write(ar[i]: 4); if ar[i]> max then begin; max: =ar[i]; maxi: =i; end; end; ar[maxi]: =0; writeln; writeln('final array: '); for i: =1 to n do write(ar[i]: 4); end.
Основные *создавать новый документа имея при этом шаблоны. *возможность работы в нескольких документах. *автоматическая проверка орфографии. *расширенные возможности по форматированию текста. *возможность отправки готового документа. дополнительные *удобное выделение текстовых фрагментов*расширенный буфер обмена; вставка скриншота*улучшение читаемости*применение водяного знака*повтор последней команды*простановка знаков ударения*настройка верхней ленты под личные нужды*быстрое выделение фрагмента текста
Популярно: Информатика
-
muratov2001104.02.2021 08:48
-
Nastyaluan23.07.2021 08:13
-
xfcsfttvd19.08.2021 17:23
-
alinks79203.06.2023 16:21
-
StasMe133704.08.2021 17:17
-
fatima5212.06.2021 23:08
-
милена007106.03.2020 19:46
-
Azizo44kka21.01.2023 21:55
-
мсоь01.02.2022 16:30
-
Adln4825.10.2021 08:56