Дан массив а(m), меньше или равно 20. ввести на печать сумму элементов массива, если она превосходит число 50, в противном случае вывести в печать исходный массив. написать программу , только прошу с интернета не брать, там программы не работают, свою программу я написала, но что-то выдаёт не так, , . program mass5v; uses crt; const nmax=20; type mas=array[1..nmax] of integer; var a: mas; i,m,s: integer; am, con: text; begin clrscr; assign(am,'am.txt'); assign(kon,'kon.txt'); reset(am); rewrite(kon); write('введите размер массива m='); readln(m); s: =0; for i: =1 to m do begin read(am, a[i]); s: =s+a[i]; end; writeln; writeln(kon); if s< =50 then begin writeln('сумма элементов менее 50, вывод исходного массива); for i: =1 to m do begin write('a[',i,']=',a[i],' '); write(kon,'a[',i,']=',a[i],' '); end; end else writeln('сумма элементов массива более 50 и равна: s=',s); close(am); close(kon); readkey; end.

Uses crt; const       nmax = 20; var       a: array[1..nmax] of integer;       i, m, s: integer;       am, kon: text; begin       clrscr;       assign(am, 'am.txt');             {раскоментировать для записи массива в файл}       {rewrite(am);       m : = random(nmax - 5) + 5;       for i : = 1 to m do               writeln(am, random(20));       close(am); }             {считывание данных из файла}       reset(am);       s : = 0;       m : = 0;       while not eof(am) do       begin               m : = m + 1;               readln(am, a[m]);               s : = s + a[m];       end;       close(am);             assign(kon, 'kon.txt');       rewrite(kon);             if s > 50 then               writeln('сумма элементов массива более 50 и равна: s=', s)       else       begin               writeln('сумма элементов менее 50, вывод исходного массива');               for i : = 1 to m do               begin                       writeln('a[', i, ']=', a[i], ' ');                       writeln(kon, 'a[', i, ']=', a[i], ' ');               end;       end;             close(kon);       readkey; end.

1)получение 2)запись 3)передача