1. придумайте структуру и создайте таблицу для решения логической : ваня, петя, саша и коля носят фамилии, начинающиеся на буквы в, п, с, к. известно, что: 1)ваня и с - отличники 2)петя и в - троечники 3)в ростом выше п 4)коля ростом ниже п 5)у саши и пети одинаковый рост. на какую букву начинается фамилия каждого мальчика? 2. зафиксируйте в таблице решение 3. под таблицей запишите ответ к мне нужна таблица, а я не знаю как она выглядет

Логика такова 
ваня не с, тк как с и ваня отличники 
петя не в, аналогично 
саша не в, тк он отличник
петя не с, тк он троечник 
коля не в и не п, тк они разного роста 
значит САША - В
значит саша не п, не с, не к 
значит КОЛЯ - С
петя не может быть п, тк тогда они с сашей будут разного роста
тогда ВАНЯ - П
а значит ПЕТЯ - К

прости, что так коряво, делал в фш, не до эстетики было, но, думаю, алгоритм понятен 

Type
    mas = array [1..50] of integer;
var
   x,y : mas;
   s1,k1,s2,k2 : integer;
   s,k : integer;
//Если вещественные, а не целые заменить на real(integer)

procedure ma (var x,y : mas);
  var
      i : integer;
  begin
    for i := 1 to 50 do
      begin
      x[i] := random(50);
      y[i]:=random(75);
       end;
   end;
procedure sk (var s,k : integer; a : mas);
  var
      i : integer;
   begin
    s := 0; k := 0;
    for i := 1 to 50 do 
     if a[i] > 0 then
      begin
       s := s + a[i];
       k := k +1;
      end;
   end;

 
begin
randomize;
ma(x,y);
sk (s,k,x);
s1 := s; k1 := k;
sk (s,k,y);
s2 := s; k2 := k;
//вывод по желанию
end.

  

Uses Crt;
  const n=5; m=7;
  type Mas = array [1..n, 1..m] of integer;
  var i, j, j1, j2: integer;
      Sumj1, Sumj2: real;
      A: Mas;
begin
 ClrScr;
 Randomize;
 SumJ1:=0; SumJ2:=0;
 for i:=1 to n do
    for j:=1 to m do
    A[i,j]:=random (10);
 WriteLn (' Massiv A: ');
 for i:=1 to n do
   begin
      for j:=1 to m do
      Write (A[i,j]:4);
      WriteLn;
   end; WriteLn;
 repeat
   Write (' Stolbez #1 = ');    ReadLn(j1);
 until (j1>=1) and (j1<=m);
 repeat
   Write (' Stolbez #2 = '); ReadLn(j2);
 until (j2>=1) and (j2<=m) and (j1<>j2);
 for i:= 1 to n do
    SumJ1 := SumJ1+A[i,j1];
 for i:= 1 to n do
   SumJ2:=SumJ2+A[i,j2];
 SumJ1:=SumJ1/n; SumJ2:=SumJ2/n; 
WriteLn;
WriteLn (' Srednee stolbza ', j1, ' = ', SumJ1:4:2);
WriteLn (' Srednee stolbza ', j2, ' = ', SumJ2:4:2); 
ReadLn;
end.