Дано 7 чисел. найти произведение чисел больших 5.

Var mas: array [1..7] of integer; s,i: integer; begin s : = 1; for i : = 1 to 7 do if mas[i]> 5 then s : = s * mas[i]; end;

Объяснение:

Рассмотрим первый вариант 1918

Он нам не подходит, почему?

Потому что, числа написаны в порядке убывания, а должны быть в порядке возрастания.

Рассмотрим второй  вариант 218

Он нам не подходит, почему?

Да, числа записаны в порядке возрастания, НО, во втором условии сказано: вычислить сумму последних двух цифр

А цифра у нас одна, 0218 быть такого не может, нет такого числа.

Рассмотрим третий  вариант 1212

Он нам не подходит, почему?

Первые два и последние два числа одинаковы, и не записаны в порядке возрастания.

Рассмотрим четвертый вариант 1218

Он нам подходит, почему?

Потому что, они записаны в порядке возрастания, и соответствуют первому и второму условию.

var N, i, a, m:integer;

c:boolean;

begin

 writeln('Введите количество участников');

 readln(N);

 if ((N < 1) or (N >50))then begin

   writeln('Ошибка');

   exit;

 end;

 m := 0;

 c := false;

 for i:=1 to N do begin

   writeln('На сколько во правильно ответил ',i,' участник:');

   readln(a);

   if ((a < 0) or (a > 20)) then begin

     writeln('Ошибка');

     exit;

   end;

   

   if (a = 0) then

     c := true;

   

   if (a > m) then

     m:= a;

 end;

 writeln('Количество во на которые ответил победитель правильно: ', m);

 if (c = false) then

   writeln('Есть ли участники, которые не ответили ни на один во правильно: NO')

 else write('Есть ли участники, которые не ответили ни на один во правильно: YES');

 

end.