Списать текст, вставить пропущенные буквы, расставить знаки препинания.
РУССКАЯ ЗИМА.
Хороши снежные зимы в Росси…! (Не)погоду см..няют ясные дни. Бл..стят на солнце глубокие сугробы скрылись (подо)льдом большие реки и маленькие реч…нки. Пр…пор…шила зима землю снежной шубкой. Отдыхает земля набирает силу.
Наполняе(тся, ться) жизнью зимний лес. Вот простучал по сухому дереву дятел. По всему лесу отбивает дробь лесной барабан…ик. С шумом пролетит рябчик подним…(тся, ться) из снежной пыли глухарь. Стайка пестрых клестов ра(с,з)селась на ветках ели. Стоиш… и любуеш…ся как ловко они вонзают свои клювики в шишки выб…рают из них с…м..на. С су чка на суч…к перепрыгивает шустрая белка.
Вот пр…летела большая сова и подала голос. Ей отозвались другие совы. Пискнула тихонько лесная мыш… пробежала по снегу и скрылась под пнем в сугробе.
Объяснение:
program Proizv;
const
Di = 8; // размерность массива, можно менять на любое другое строки
Dj = 10; // а здесь столбцы
var
A: array [1..Di, 1..Dj] of Integer;
i, j, p: Integer;
begin
Randomize;
for i := 1 to Di do begin
WriteLn;
for j := 1 to Dj do begin
A [i, j] := Random (21) - 3;
Write (A [i, j] :3, ' ');
end;
end;
p := 1;
for i := 1 to Di do begin
if i mod 2 = 0 then // если строка четная то пропускаем
Continue;
for j := 1 to Dj do begin
if A [i, j] < 0 then // перемножаем только отрицательные значения
p := p * A [i, j];
end;
end;
WriteLn;
WriteLn ('Произведение = ', p);
ReadLn;
end.
Объяснение:
для упрощения считаем, что хотя бы одно требуемое число будет найдено. Если таких чисел найдено не будет, то результат произведения будет равен 1.