Транслировать код с Pascal

@frostbool · Регистрация: 09.05.2013

Студворк — интернет-сервис помощи студентам

Позязьки, помогите с переводом в си небольшого кода - сам паскаль почти не знаю

Pascal

var
  mas:array [1..50000] of integer;
  i,one,two,tmp:integer;
begin
 one:=0;  readln(i);
 for i:=i downto 1 do
   begin
     readln(tmp);
     if tmp>=-22767 then begin inc(one); mas[one]:=10000-tmp end
   end;
 two:=1; readln(i);
 for i:=i downto 1 do
   begin
     readln(tmp);
     while (two<=one) and (mas[two]>tmp) do inc(two);
     if two>one
       then begin writeln('NO'); halt end
       else if mas[two]=tmp then begin writeln('YES'); halt end;
   end;
 writeln('NO')
end.

Заранее благодарен)

@ПерС · 18.10.2015, 14:08

код настолько банальный, что должно хватить вот такого банального решения.
ну или ручками, с вопросами о том, что не получилось. Паскаль для этого кода знать не нужно.

@ПерС 584 / 487 / 371 Регистрация: 05.11.2013 Сообщений: 1,263 Записей в блоге: 6
	18.10.2015, 14:08	2
	код настолько банальный, что должно хватить вот такого банального решения. ну или ручками, с вопросами о том, что не получилось. Паскаль для этого кода знать не нужно. 0

Опции темы