profile
Опубликовано 4 года назад по предмету Информатика от schastie

B массиве произвольной длины N найти минимальный и максимальный
элементы и заменить их нулями.

  1. Ответ
    Ответ дан magica
    Готово. Возникли вопросы? Пиши ниже.
  2. Ответ
    Ответ дан igroman95
    Готово. program pr; var a:array of integer;i,min,max,n:integer; begin write('Размер массива: '); readln(n); setlength(a,n); writeln(); writeln('Заполняем массив...'); for i:=1 to n do begin write(i,' элемент: '); readln(a[i]); if i=1 then begin min:=i; max:=i; end; if a[i]>a[max] then max:=i; if a[i]
    1. Ответ
      Ответ дан igroman95
      if a[i] end;
      a[max]:=0;
      a[min]:=0;
      for i:=1 to n do write(a[i]:4);
      end.
Самые новые вопросы