Дан массив целых чисел из 12 элементов. поменять местами первый отрицательный с первым положительным.

Var   a: array[1..12] of integer;   i,flag, indmax, indmin,k: integer; begin   randomize;   writeln('исходный массив: ');   for i: =1 to 12 do    begin      a[i]: =random(20)-10;       writeln('a[',i,']=',a[i]);   end;   i: =0;     flag: =1;   while flag< > 0 do      begin          i: =i+1;       if a[i]< 0 then            begin              indmin: =i;         flag: =0;         end;         end;     i: =0;     flag: =1;   while flag< > 0 do     begin          i: =i+1;           if a[i]> 0 then          begin                indmax: =i;                 flag: =0;             end;               end;   k: =a[indmax]; //замена   a[indmax]: =a[indmin];   a[indmin]: =k;   writeln('конечный массив:   ');   for i: =1 to 12 do   writeln('a[',i,']=',a[i]);     end.

программа №4program str999; uses crt; var s: string; begin writeln('введіте фразу'); read(s); if (s='край озер') then writeln ('край озер лесов и рек'); if (s='я учусь в школе') then writeln ('я учусь в 10-м классе') end.

 

№5program p_1; uses crt; var s: string; begin writeln('введите фразу'); read(s); if (s='моя родина беларусь') then writeln ('беларусь моя родина'); if (s='люблю цябе мой родны кут') then writeln ('мой родны кут люблю цябе') end.