var a: array[1..n, 1..n] of integer; i, j, aii: integer;
begin Randomize; Writeln('Исходный массив'); for i := 1 to n do begin for j := 1 to n do begin a[i, j] := Random(101) - 50; Write(a[i, j]:4) end; Writeln end; Writeln('Результирующий массив'); for i := 1 to n do begin aii:=a[i,i]; for j:=1 to n do begin if a[i,j]<aii then a[i,j]:=1 else a[i,j]:=0; Write(a[i,j]:4) end; Writeln end end.
Системный блок - в нём располагаются внутренние узлы персонального компьютера;
Монитор - позволяет вывод данных: текстов, изображений и другой информации;
Клавиатура - служит для ввода информации;
Мышь - хоть при её можно управлять работой компьютерных программ.