Програма прости ввести 2 двух значиных числа если сума чисел больше его добутку то вывести сума если не больше то вывести добуток паскаль ДАЮЮЮ

Ответы

program xxx;

    var i, n : integer;

                      s : real;

                    a : array [1..20] of real;

begin

  writeln('введите размерность массива n=');

  readln(n);

  write('введите элементы массива а: ');

  for i: =1 to n do

        readln(a[i]);

  writeln('исходный массив а: ');

  for i: =1 to n do

        writeln(a[i]);

  s: =0;

  for i: =1 to n do

      if a[i]> 0 then s: =s+a[i];

  writeln('сумма положительных элементов =', s);

  readln

end.

системный блок

 

var a, b: integer;

begin

   readln(a);

   readln(b);

   if a + b > a * b then

       writeln(a + b)

   else

       writeln(a * b);

end.

Объяснение:

Сначала объявляем, что переменные a и b - целочисленные.

Далее просим ввести их с клавиатуры.

Далее сравниваем по условию, ежели сумма больше произведения, то выводим сумму.

Ежели сумма меньше произведения, то выводим произведение.

Найдено 3 ответ(ов)
Показать ответы


Знаешь ответ?

Похожие вопросы:

1) количество возможных событий равно двум. значит n=2, подставляем в формулу n=2^i,  i=1 бит. 2) находим значение информационной емкости одного символа. n=2^i, подставляя зн...Подробнее
ответов: 2
это чего у тебя запоролено? если  microsoft word то advanced office password recovery позволяет восстанавливать пароли либо обходить парольную защиту файлов и документов, соз...Подробнее
ответов: 2
Популярные вопросы