Три друга имеют специальности: программист, it-менеджер, веб-дизайнер. из трёх утверждений: «андрей - программист», «богдан - не программист» и «валера не веб-дизайнер» только одно верное. кто кем является?
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.
Богдан-веб дезайнер , Валера-it-менеджер.