Ваня и с. отличники петя и в. троешники в. ростом выше п. коля ростом выше п. у саши и пети одинаковый рост. какие у них фамилии? !

Ваня, петя, саша и коля носят фамилии, начинающиеся на буквы в, п, с и к. известно, что: ваня и с – отличники; петя и в – троечники; в ростом выше п; коля ростом ниже п; у саши и пети одинаковый рост. на какую букву начинается фамилия каждого мальчика? ваня - п, петя  - к, саша - в, коля- с

Чесно  кажучи,  написано  дуже  "приблизно"  : ) 1)  слово  "двовимірний"  означає,  що  масив  є  таблицею  (з  рядками  і  стовпцями),  а  не  те,  що  його  довжина  =2  елементи. тому  значення  n  (рядок  const n=2; ) краще замінити на щось быльше, хоча б 10. 2) у розділі var двовимірний масив описується так:     var b: array[1..n, 1..n] of integer;   (вважаємо масив квадратним) 3) бажано підкоректувати запрошення на ввід, тому що користувач бачить одне і те ж для кожного елемента: b[i]= потрібно написати так: write('b[',i,',',j,]='); read ('b[i,j]); - тут зайва лапка, має бути так  read (b[i,j]); і бажано замість read використати  readln, щоб кожне нове число користувач  мав  вводити з нового рядка. для  навчального  завдання  ще  краще  не  запитувати  користувача вводити сто чисел, а заповнити масив програмно випадковими числами: randomize;   b[i,j]: = random(101)-50; (задає числа від -50 до 50) 4) for i: =2 to n do for j: =2 to n do чому ти переглядаєш масив, починаючи з 2 рядка і 2-го  має бути    for i: =1 to n do   for j: =1 to n do  5) if b[i,j]< min then min: =b[i,j]; - ти порівнюєш елемент  b[i,j] зі змінною min, а чому  вона  рівна? де ти задаєш її значення? 6) ну і бажано вивести весь  масив на екран, щоб користувач міг його бачити. ось  виправлений  варіант програми: program pr4; uses crt; const n=10; var b: array[1..n,1..n] of integer; min,i,j: integer; begin; randomize; for i: =1 to n do begin for j: =1 to n do begin b[i,j]: =random(101)-50; write(b[i,j]: 3, ' '); end; writeln; end; writeln; min: = b[1,1]; for i: =1 to n do for j: =1 to n do if b[i,j]< min then min: =b[i,j]; writeln('найменший елемент масиву min=',min); end.