Если не соблюдать технику безопасности может возникнуть замыкание и пожар или можно что-либо сломать себе, повредить технику. Основными являются - не вставать по время работы за компьютером, а так же не есть за компьютерным столом/не приносить еду в класс. Неправильная посадка может привести к искривлению и другим многочисленным проблемам, если при неправильной посадке зацепить какой-либо провод можно нанести вред технике и себе. Рекомендаций не знаю сорь, но можешь написать что нельзя есть за столом, раскачиваться на стуле и.т.д
Uses crt; const q=1000;var a:array[1..q,1..q]of integer; m,n,i,j,c,k,buf:integer; b:array[1..q]of integer; begin writeln('n,m ?') ; readln(n,m); writeln('как заполнять матрицу ?'); writeln(' Нажмите 1 при датчика, 2 - ввод с клавиатуры'); {выбор действия при заполнении} readln(c); case c of 1:for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(100); write(a[i,j]:4); end; writeln; end; 2: begin for i:=1 to n do begin for j:=1 to m do readln(a[i,j]); end; clrscr; for i:=1 to n do begin for j:=1 to m do write(a[i,j]:4); writeln; end; end; end; writeln('формирование массива'); for i:=2 to n do begin if i mod 2=0 then for j:=1 to m do if a[i,j]>2 then begin k:=k+1; b[k]:=a[i,j]; end; end; writeln; for i:=1 to k do write(b[i]:4); writeln; {сортировка} for i:=1 to k -1 do for j:=i+1 to k do if b[i]<b[j]then begin buf:=b[i]; b[i]:=b[j]; b[j]:=buf; end; {вывод массива} for i:=1 to k do write(b[i]:4); end.
Вот как то так
Не благодари (;