С клавиатуры вводится три строки вида Фамилия пробел Имя пробел Рост.Определить фамилию и имя самого высокого человека d pascal abc

+ 0 -

Centerguf

17 мая 2013 г., 22:50:25 (10 лет назад)

type  str = array [1..100] of char;
var  maxs, tmps : str; 
count, max, tmp, ctmp : integer;

procedure reads (var s : str; var len, val : integer);
var 
b : boolean; 
 c : char; 
 i : integer;
begin 
 i := 0; b := false; 
 repeat 
  read (c); 
  if not b or (c <> ' ') then   
begin   
   if c = ' ' then b := true; 
    inc (i);   
   s[i] := c; 
    c := '1'; 
  end; 
 until b and (c = ' ');
  len := i; 
 readln (val);
end;
begin
assign (input, 'input.txt'); reset (input);
  reads (maxs, count, max); 
 while not eof do 
 begin   
 reads (tmps, ctmp, tmp);
    if tmp > max then   
 begin     
 max := tmp;
 count := ctmp; 
 maxs := tmps;
    end; 
end; 
 for tmp := 1 to count do write (maxs[tmp]);
end.

+ 0 -

Simka7771

17 мая 2013 г., 23:28:06 (10 лет назад)

Ну потому что 3 человека в 1 одну переменную тяжеловато в обработке да и правильно работать она вряд ли будет

+ 0 -

Apostolov

18 мая 2013 г., 1:58:43 (10 лет назад)

Если для 3их это не вопрос, я сейчас поем и напишу)

+ 0 -

Adameykozhunya

18 мая 2013 г., 2:56:23 (10 лет назад)

ты уже напиши

+ 0 -

Виктория072699

18 мая 2013 г., 3:33:07 (10 лет назад)

я просто уже не знаю что делать в ср сеестровка

+ 0 -

Prostobogdan

18 мая 2013 г., 4:54:50 (10 лет назад)

а - Иван Иванов, b - Павел Иванов, c - Сергей Иванов. И следовательно, а1 рост Ивана, b1 - рост Павла, c1 - рост Сергея, и сравнивать именно переменные а1...с1