Какие из ниже систем относятся к сау, а какие к асу: -система безопастности -компьютеризированный система "метеоролог" -компьютеризированный система предприятием -станок с числовым программным -"автопилот" в самолете -компьютеризированный система электроснабжением

Сау - автоматический-делает всё без человека асу - автоматизированный комплекс включает в себя участие человека. сау - система сигнализации, - «автопилот» в самолёте, - компьютеризированная система электроснабжением асу - компьютеризированная система «метеоролог» , - компьютеризированная система предприятием, - станок с числовым программным

Program proga_25_3; var   a: text; s,p : string;   i: integer;   f: boolean; begin    write('введите имя и путь к файлу   ');     read(p);     assign(a, p);     reset(a);     while not eof(a) do      begin          readln(a,s);                     for i: =1 to length(s) div 2 do          if s[i]=s[length(s)-i+1] then              f: =true            else          begin          f: =false;           break;           end;         if f then          writeln (s);       end;       close(a); end.

Одномерный массив пользователь вводит размерность массива найти в массиве минимум максимум и поменять их местами паскаль целочисленный массив по одному вхождению максимума и минимума если все, то пишите! var n,imax,imin,i,r: integer; a: array[1..100] of integer; begin write('n= '); readln(n); for i: =1 to n do read(a[i]); writeln('table: '); imax: =1; imin: =1; for i: =1 to n do begin write(a[i]: 8); if a[imax]< a[i] then imax: =i; if a[imin]> a[i] then imin: =i end; r: =a[imax]; a[imax]: =a[imin]; a[imin]: =r; writeln; writeln('new table: '); for i: =1 to n do write(a[i]: 8); end.