Важная особенность таблицы типа "объект-объект" в том, что... Выберите один из 3 вариантов ответа:

1) в ней фиксируются и количественные "Сколько?", и качественные

свойства (наличие/отсутствие связи между объектами).

2) в ней фиксируются количественные "Сколько?", а не качественные

свойства.

3) в ней фиксируются не количественные "Сколько?", а качественные

свойства (наличие/отсутствие связи между объектами).​

1)

program m; uses crt; var i,a,b,c,min: integer; beginclrscr; readln(a,b,c);

if a< min then min: =a; if b< min then min: =b; if c< min then min: =c; writeln('              ',min); readkey; end.

2)

program m; uses crt; var i,a,b,c,min,d: integer; beginclrscr; readln(a); min: =a; for i: =1 to 2 do                       

                                                                beginreadln(a); if a< min then min: =a;                                                             end; writeln(min);

readkey;

end.

3)

program m; uses crt; var i,a,b,c,min,d: integer; beginclrscr; readln(a,b,c); if a< b then b: =a; if c< a then b: =c; writeln(b); readkey; end.

на египетскую

вавилон-клинопись

финикия-подобие букв без гласных

египет-иероглифы

var a: array[1..10] of integer;

i,t: integer;

begin

  for i : = 1 to 10 do

      read(a[i]);

  for i : = 1 to 10 do begin

      if (a[i]< 0) and t=0 then begin

          a[i]: =0;

          t: =1;

      end;

      writeln(a[i]);

  end;

end.