B массиве произвольной длины N найти минимальный и максимальныйэлементы и заменить их нулями.
B массиве произвольной длины N найти минимальный и максимальный
элементы и заменить их нулями.
Гость
Ответ(ы) на вопрос:
ГостьГотово. Возникли вопросы? Пиши ниже.
ГостьГотово. 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]
Не нашли ответ?
Похожие вопросы