Есть легенда,что при римской империи,что бы посетить императора для чего-либо,простолюдину нужно было принести дар императору. Мария Магдалина, когда пришла к императору Тиберию о том, что бы сообщить ему благостную весть о воскресении Иисуса Христа ничего при себе не имела,кроме белого яйца.Тогда император сказал: "Я поверю тебе если это белое яйцо станет красным"! Совершилось чудо яйцо туже секунду мгновенно покраснело,тогда Мария Магдалина протянула красное яйцо императору и сказала "Христос Воскрес"! Император Тиберий принял яйцо провозгласил о чуде в словах "Воистину Воскрес"!!Ну так сказать, отсюда и пошло как обычай красить яйца на Пасху.
var b: array[1..m, 1..n] of integer; i, j, k: integer;
begin Randomize; { Инициализация массива и вывод его первоначального состояния } { Одновременно - подсчет количества интересующих элементов } k:=0; Writeln('Исходный массив'); for i := 1 to m do begin for j := 1 to n do begin b[i, j] := Random(101) - 50; Write(b[i, j]:4); if (((i mod 2)<>0) and (b[i,j]>a)) then Inc(k) end; Writeln end; { Вывод результатов } Writeln('Элементов со значением больше ',a,' в нечетных строках: ', k) end.
