Готово. 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]
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
