Помогите с задачами на паскале срочно Опции

[lamaksi]

Народ помогите стучите в асю <cut by Lapp>

[Unconnected]

const a=16;b=5;c=6;
var mas1:array[1..a,1..b,1..c] of integer;
    d,e,f,x:integer;
begin
  for d:=1 to a do
      for e:=1 to b do
        for f:=1 to c do
        begin
          mas1[d,e,f]:=x;
          inc(x);
        end;
  writeln('Vvedite nomer uroka dlya poiska');
  readln(x);
  for d:=1 to a do
    for e:=1 to b do
      for f:=1 to c do
      begin
        if mas1[d,e,f]=x then begin
                                writeln('Urok #',x,' bil na nedele #',d,' v den #',f);
                                break;
                              end;
      end;
  readln;
end.

Это первая.

Сообщение отредактировано: Unconnected - 23.12.2008 13:59