2. Найди рисунок-ответ загадки. Определи источник живых и искусствень Hых звуков. Не хожу и не летаю, - id1532149320210330 от Diana102004 30.03.2021 16:58

Question

Информатика: 2. Найди рисунок-ответ загадки. Определи источник живых и искусствень Hых звуков. Не хожу и не летаю, А попробуй догони! Я бываю золотая, Ну-ка в сказку загляни! Хлопья белые летят, Тихо падают, кружат. Стало всё кругом бело. Чем дороски замело? Деревяшка, две струны, Натянутых, тонких. Вы узнать её должны! Поет очень звонко. По дереву стучу, Что-то я достать хочу. Хоть и скрылся под корой - Червячок-то будет мой! Источник живого звука Источник искусственного звука Не Может быть источником звука

Diana102004 · Accepted Answer

Program pr;
uses crt;

Var mas:array[1..1000, 1..1000] of integer;
N,M,i,j,k:integer;

Begin
Writeln('Введите размер матрицы N*M');
Write('N = ');
readln(N);
Write('M = ');
readln(M);

if (M>1000) or (N>1000) or (M<1) or (N<1)
then
Writeln('Ошибка, указанные значения выходят за пределы матрицы')   else
  Begin
Writeln('Введите элементы матрицы');

k:=0;
for i:=1 to N do
  for j:=1 to M do
  Begin
  readln(mas[i,j]);
  if (mas[i,j] mod 2 = 0) then k:=k+1;
  end;

Writeln();
  Writeln('Исходная матрица');

for i:=1 to N do
Begin
for j:=1 to M do
  Begin
Write(mas[i,j], ' ')
   end;
  Writeln();
end;

Writeln();
Writeln('Количество четных элементов = ',k);
end;

readln;
end.

MOGZ ответил