• 
  • 16 March 2021
  Информатика
  • Автор: mathlover12

  

  В массиве из 6 элементов, заданных с клавиатуры, найдите произведение наибольшего и наименьшего значений (pascal abc)

• 
  • 16 March 2021
  • Ответ оставил: Alphaeus

  Program mathlover12;

  const

   n = 6; {Количество элементов массива}

  var  

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

  s:string;

  i,min,max: integer;

  begin

   s:='**** -=Alphaeus=- ****';

   for i:=1 to 22 do begin write(s[i]); sleep(42) end;

  {вводим элементы массива}

   writeln; writeln('Введите ',n,' чисел:');

   for i:=1 to n do read(a[i]);

  {Ищем min и max}

  min:=a[1];

  max:=a[1];

   for i:=2 to n do

     begin

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

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

     end;

  {Выводим произведение  min и max}

   writeln; writeln;

   writeln('Произведение min и max равнo ',min*max);

  end.

  
  
  
  

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

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

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

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

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