|
В массиве из 10 целых чисел найти наибольший элемент и поменять его местами с первым элементом
|
|
|
|
var
a:array[1..10]of integer;
i,m,q,z:integer;
begin
m:=low(m);
for i:=1 to 10 do begin
read(a[i]);
if a[i]>m then begin m:=a[i];q:=i;end;end;
z:=a[1];a[q]:=a[1];a[1]:=z;
end.
"Спасибо" принимается в виде повышения репутации ( Зелёный плюсик:) ).Спасибо
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
