• 
  • 25 October 2020
  Информатика
  • Автор: chavel988

  

  Напечатать лучший результат заплыва среди 8 участников.
  Найти максимальный элемент из 12 введенных.

• 
  • 25 October 2020
  • Ответ оставил: nastikots

  Ответ:

  program z1;

  const n=8;

  var a:array [1..n] of integer;

  i,m: integer;

  begin

  writeln ('Результаты заплыва: ');

  for i:= 1 to n do

  begin

  write(i,'-й: ');

  readln(a[i])

  end;

  writeln;

  m:=a[i];

  for i:= 1 to n do

  if a[i]<m then m:=a[i];

  writeln('Лучший: ',m)

  end.

  program z2;

  const n=12;

  var a:array [1..n] of integer;

  i,m: integer;

  begin

  writeln ('Массив: ');

  for i:= 1 to n do

  begin

  write(i,'-й элемент: ');

  readln(a[i])

  end;

  writeln;

  m:=a[i];

  for i:= 1 to n do

  if a[i]>m then m:=a[i];

  writeln('Максимальный: ',m)

  end.

  Объяснение:

  Сначала вводим элементы массива.

  Затем предполагаем, что первый элемент наименьший (1 задача) или наибольший (2 задача). Потом сравниваем элементы массива с переменной, в которую записали первый элемент, и меняем переменную, если условие срабатывает. Выводим результат на экран.

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

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

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

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

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