Bilden Sie Fragen. Beantworten Sie die Fragen verneinend. Muster. Du, dieses Buch lesen.
Hast du dieses Buch gelesen? – Nein, ich habe dieses Buch nicht gelesen.
1. Du, Tee trinken. 2. Er, die Hausarbeiten machen. 3. Ihr, alle Substantive deklinieren. 4. Sie, Ball spielen. 5. Du, das Spielzeug re¬parieren. 6. Du, deinen Schulfreund sehen. 7. Sie (PL), nach Hause kom¬men. 8. Er, sich den Film ansehen. 9. Er, seinen Namen nennen. 10. Sie, über dieses Telefongespräch erzählen. 11. Du, diese Geschichte verstehen. 12. Ihr, die Nachbarn begrüßen. 13. Er, das Datum schreiben. 14. Franz, den Baukasten bringen. 15. Ihr, das Geschirr abwaschen. 16. Der Vater, von der Arbeit zurückkommen.

Uses crt; const n = 100; var a: array [1..n] of integer; b: array [1..n] of integer; i, j, m: byte; p1, p2: integer; begin write('количество элементов: '); readln(m); clrscr; writeln('ввод массива a'); writeln; for i: =1 to m do    begin    write('a[',i,']: '); readln(a[i]);     end; clrscr; writeln('ввод массива  b'); writeln; for i: =1 to m do    begin    write('b[', i, ']: '); readln(b[i]);     end; clrscr; writeln; writeln('исходный массив а: '); for i: =1 to m do write(a[i]: 4); writeln; writeln; writeln('исходный массив  b: '); for i: =1 to m do write(b[i]: 4); for i: =1 to m-1 do for j: =m downto i do begin if a[i] > a[j] then begin p1: =a[i]; a[i]: =a[j]; a[j]: =p1; end; if b[j] > b[i] then begin p2: =b[i]; b[i]: =b[j]; b[j]: =p2; end; end; writeln; writeln; writeln('массив а по возрастанию: '); for i: =1 to m do write(a[i]: 4); writeln; writeln; writeln('массив b по убыванию: '); for i: =1 to m do write(b[i]: 4); writeln; writeln; writeln('массив a+b: '); for i: =1 to m do begin  a[i]: =a[i]+b[i];   write(a[i]: 4);   a[i]: =a[i]-b[i]; end; writeln; writeln; writeln('массив b-a: '); for i: =1 to m do begin  b[i]: =b[i]-a[i];   write(b[i]: 4); end; readln; end.