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

124

290

Посмотреть ответы 2

Ответы на вопрос:

Volchara0

Информатика

4,4(53 оценок)

Готово. 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]