Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
помогите составить программу на Паскале
В массиве из 10 целых чисел найти наибольший элемент и поменять его местами с первым элементом
1 | Автор: Hachetlov_R | 2012-05-23, 20:44   |  Репутация: [ + 0 ]
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
2 | Автор: Berestovskiy | 2012-05-24, 18:02   |  Репутация: [ + 211 ]
  • Страница 1 из 1
  • 1
Поиск: