Определить значения переменных После выполнения алгоритмов​

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

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

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

Объяснение:

Const nx=30;var i,j,p,n:integer;A:array[1..nx,1..nx] of integer;d,Sn,min:real;begin p:=1;write('Введите размер матрицы');Read(n);for i:=1 to n do beginfor j:=1 to n do beginA[i,j]:=random(3)-2;write(A[i,j]:4);end;writeln;end;writeln;writeln;for i:=1 to n do beginfor j:=1 to n do beginif i = j then begin if A[i,j]<> 0 then p:=p* A[i,j];write(A[i,j]:4);endelse write(' ':4);end;writeln;end;write('p =',p);writeln;writeln;for i:=1 to n do beginfor j:=1 to n do beginif (i= n -j +1) then begin if A[i,j]<> 0 then p:=p* A[i,j];write(A[i,j]:4);endelse write(' ':4);end;writeln;end;write('p =',p);end.