• 
  • 06 November 2013
  Информатика
  • Автор: Supermemo02

  

  Дан массив из 10 положительных чисел. А(N)=(a0....a10). найти максимальный элемент массива и поменять местами с последним

• 
  • 06 November 2013
  • Ответ оставил: yasadc

  Uses crt;
  const n=10;
  var a:array[1..n] of integer;
  i,max,k:integer;
  begin
  randomize;
  for i:=1 to n do
  begin
  a[i]:=random(30);
  writeln(a[i]);
  end;
  writeln;
  max:=0;
  for i:=1 to n do
  begin
  if a[i]>max then begin
  max:=a[i];
  k:=i;
  end;
  end;
  a[k]:=a[k]+a[n];
  a[n]:=a[k]-a[n];
  a[k]:=a[k]-a[n];
  for i:=1 to n do
  writeln(a[i]);
  end.
  
  
  
  
  
  

  0
• 
  • 06 November 2013
  • Ответ оставил: preceptor

  Program Max;
  Const first = 1; last = 10;
  Var a: Array [first..last] Of Integer;
  m, tmp, i: Integer;
  Begin
  WriteLn('Введите через пробел ', last, ' чисел');
  For i := first To last Do
  Read(a[i]);
  m := first;
  For i := first To last Do
  If a[i] > a[m] Then
  m := i;
  tmp := a[last];
  a[last] := a[m];
  a[m] := tmp;
  WriteLn('Результат:');
  For i := first To Last Do
  Write(a[i], ' ');
  ReadLn;
  End.

  0
• 
  • НЕ НАШЛИ ОТВЕТ?

  Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету школьной программы: информатика.
  На сегодняшний день (10.05.2025) наш сайт содержит 109575 вопросов, по теме: информатика. Возможно среди них вы найдете подходящий ответ на свой вопрос.

  Найти другие ответы
• Нажимая на кнопку "Ответить на вопрос", я даю согласие на обработку персональных данных

  Ответить на вопрос

Последние опубликованные вопросы