На блок-схеме представлен алгоритм ввода массива из 10 целых чисел с цикла с предисловием. Запишите соответствующую программу на языке КУМИР?

Жұмыс уақытын дұрыс ұйымдастыру.

1. Компьютер алдында күніне 5 сағаттан артық жұмыс істеуге болмайды. Ең дұрысы – осы уақытта түске дейін және түстен кейін 2 (екіге) бөліп алу. Балалар үшін бұл режимінің талаптары қаталдау: 1 сынып – 10 минут, 2 - 7 сыныптар – 15 - 20 минут, 8 - 9 сыныптар – 25 минут, 10 - 11 сыныптар – әрбір 30 минут сайын 5 минуттық үзіліс жасап 50 минут қана.

2. Әр сағат сайын көзге арналған жаттығулар жасап, әрекет түрін өзгертіп отырыңыз, орныңыздан тұрып, шай, су ішіп келуге болады. Егер тұруға болмайтындай «шұғыл» жұмыс істеп отырсаңыз, тым болмаса, басыңызды айналдырып, құйрық бұлшық еттеріңізді жиырып, босатып, балтыр бұлшық еттерімен аяқтың басын көтеріңіз.

Объяснение:

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.