Регистрация
kuraflin666
14.06.2020 08:27
Информатика
Есть ответ 👍

Напишите программу, которая получает с клавиатуры три целых числа и находит наибольшее и наименьшее из них.

151
498
Посмотреть ответы 2

Ответы на вопрос:

Nonder
Nonder
4,8(86 оценок)

a = int(input())

b = int(input())

c = int(input())

print(max(a,b,c))

print(min(a,b,c))

AdelinaAries
AdelinaAries
4,6(37 оценок)

var

  n: 2..100;

  a: array [1..100] of -1000..1000;

  max1, max2, maxpr, i, j: integer;   {maxpr - максимальное произведение, max1 и max2 - искомые числа}

function rangeoverfilling(number: integer; index: integer): integer; {функция, возвращающая число в диапазон} begin  if number in [1..index] then result : = number;   if number > index then result : = number mod index;   if number < 1 then result : = index + number mod index; end;

 

begin

  maxpr: = -maxint; {присваиваем максимальному проиведению начальное значение, равное максимальному числу типа integer, взятому со знаком -}

  writeln('введите n');

  readln(n);

  for i: = 1 to n do

  begin

    writeln('введите целое число, по модулю не превышающее 1000');

    readln(a[i]);

  end;

  for i: = 1 to n - 1 do

  for j: = 1 to rangeoverfilling(n - i, n) do

    if a[i] * a[i + j] > maxpr then

    begin

      maxpr: = a[i] * a[i + j];

      max1: = a[i];

      max2: = a[i + j];

    end;

  writeln('пара чисел, максимальное произведение: ', max1,' и ', max2);

end.

   

   

Популярно: Информатика