1. кто такой?
2. где жил
3. в каком году основал?
5. кто был конкурент?
6. в каком году он создал первую операционную систему?
4. в каком году был основан майкрософт
7. кто был партнер
это вопросы про билл гейтс ​

a)

const n=5;

var a: array [1..n,1..n] of integer;

i,j,k,s: integer;

begin

writeln('массив: ');

for i: =1 to n do

begin

for j: =1 to n do

begin

a[i,j]: =random(3)-2;

write(a[i,j]: 4);

end;

writeln

end;

for j: =1 to n do

begin

k: =0;

for i: =1 to n do

if a[i,j]< 0 then k: =k+1;

if k=n then

begin

s: =s+1;

if s=1 then write ('номера столбцов, все элементы которых отрицательны: ');

write (j,' ')

end

end;

if s=0 then write ('столбцов, все элементы которых отрицательны - нет');

end.

б)

const n=5;

var a: array [1..n,1..n] of integer;

i,j,kp,ko: integer;

begin

for i: =1 to n do

for j: =1 to n do read (a[i,j]);

writeln('массив: ');

for i: =1 to n do

begin

for j: =1 to n do write(a[i,j]: 4);

writeln

end;

for j: =1 to n do

begin

ko: =0;

kp: =0;

for i: =1 to n do

begin

if a[i,j]< 0 then ko: =ko+1;

if a[i,j]> 0 then kp: =kp+1

end;

if ko=n then writeln ('в ',j,' столбце все элементы отрицательные');

if kp=n then writeln ('в ',j,' столбце все элементы положительные')

end

end.