Запиши, что получается после каждого действия 1. начало 2. запиши (1) 3. замени первую букву на (2) 4. замени последнюю букву на (3) 5. поменяй местами две буквы посередине 6. конец слова (1) цирк (1) волк (1) стук (1) к_ т (2) п (2) с (2) (2) (3) з (3) н(3) (3)

(1) цирк  (2) пирк    (3)  пирзприз  (1) волк  (2) солк(3)  солн  слон  (1) стук   (2)  (м) мтук(3) (ь)  мтуьмуть  (1) крот     (2)  (м) мрот(3) (г)  мрогморг

Const     max= 10; // количество элементов в массиве var     a: array [1..max]     i,m: integer; begin     write('введите',max,'чисел');     for i: =1 to max do       read(a[i])     write('введите число');     read(m);     for i: =1 to max do       begin           if a[i] = m              then                 begin                   write('это число есть в массиве');                   exit                 end;       end; write('этого числа нет в массиве') end.

1)var ar: array[1..4] of integer; begin ar[1]: =2; ar[2]: =2; ar[3]: =2; ar[4]: =2; end. 2)var ar: array[1..5] of integer; a: integer; begin for a: =1 to 5 do begin; ar[a]: =a; writeln(ar[a]); end; end. 3)var ar: array[1..7] of integer; a,b,c: integer; begin readln(a); for b: =1 to 7 do begin; ar[b]: =a+b-1; writeln(ar[b]); end; end.4)var ar: array[1..6] of integer; b: integer; begin for b: =1 to 6 do begin; readln(ar[b]); ar[b]: =ar[b]*2; writeln(ar[b]); end; end. 5)var ar: array[1..6] of integer; b: integer; begin randomize; for b: =1 to 6 do begin; ar[b]: =random(10); ar[b]: =ar[b]*ar[b]; writeln(ar[b]); end; end.