Техника безопасности в кабинете информатики 30 лет назад и сейчас
1) Для работы в компьютерном классе учащиеся должны приходить в сменной обуви и аккуратном виде
2) Запрещено употреблять ненормативную лексику
3) В компьютерном классе ученики должны быть строго в белых халатах или же в белой рубашке
4) Также учащиеся находятся в кабинете только во время урока, на перемене дежурный делает влажную уборку
При несоблюдении правил учащиеся отстраняются от работы в компьютерном классе
m : array[1..4,1..4] of Integer;
m_new : array[1..4] of Integer;
i,j : Integer;
Begin
For i:=1 to 4 do
Begin
For j:=1 to 4 do
Begin
m[i,j]:=Random(100);
Write(m[i,j]:5);
If i=j then m_new[i]:=m[i,j];
end;
Writeln;
end;
Writeln('Главная диагнональ: ');
For i:=1 to 4 do Write(m_new[i]:5);
Writeln;
end.