Название помехоустойчивого кода (5 букв)

Название помехоустойчивого кода ответ: (морзе)

Морзе.морземорземорземорзе морзе

Var   ar: array[1..10]of integer;   i, c, s: integer;   begin   s : = 0;   c : = 0;   randomize;   for i : = 1 to 10 do ar[i] : = random(-10, 10);   writeln('полученный массив: ');     for i : = 1 to 10 do write(ar[i], ' ');   writeln;   for i : = 1 to 10 do if(ar[i] < > 0) then c : = c + 1;   writeln('количество ненулевых элементов = ', c);   for i : = 1 to 10 do if(ar[i] < > 0) then s : = s + ar[i];   writeln('сумма всех его ненулевых элементов = ', s);   write('их среднее арифметическое = ',s/c); end.

Видимо у вас 2 условия, то есть 2 разных :   1-я : яблок не больше, чем груш  2-я : яблок не меньше, чем 20  1-я :   я< =г  г=15  ответ: плодов не более 30 (15 груш и не более 15 яблок)  2-я :   г=15  я> =20  ответ: плодов не менее, чем 35 (15 груш и не менее 20 яблок)  если это всё же одна и оба условия надо воспринимать одновременно, то:   ответ: условие некорректно, так как 2 условия противоречат друг другу, то есть не может быть одновременно яблок не больше 15 и не меньше 20.