Форум » Pascal/Delphi » помогите с ошибками » Ответить
помогите с ошибками
iamhated: {Даны две последовательности чисел a1, a2, ..., an и b1, b2, ..., bn. Сформируйте новые последовательности, элементы которых вычисляются по следующему правилу: ai = max(ai, bi), bi = min(ai, bi), i = 1, 2, ..., n.} unit unit8_18; interface procedure vved(var fin:text, var m:integer; var a:mas; filename:string); procedure vived(var fout:text, m:integer, a:mas, filename:string); function max(a:integer; b:integer); function min(a:integer; b:integer); implementation procedure vved(var fin:text;var m:integer; var a:mas; filename:string); var i:integer; begin assign(fin,filename); reset(fin); read(fin,m); for i:=1 to m do read(fin,a); close(fin); end; procedure vived(var fout:text;m:integer; a:mas; filename:string); var i:integer; begin assign(fout,filename); rewrite(fout); for i:=1 to m do write(fout,a:5); writeln(fout); end; close(fout); end; function max(a: integer; b: integer):integer; begin if (a > b) then max := a else max := b; end; function min(a: integer; b: integer): integer; begin if (a < b) then min := a else min := b; end; end. program l8_18; uses crt, unit8_18; const n=10; var a:array[1..n] of integer; b:array[1..n] of integer; i,m:integer; begin clrscr; vved(f,m,a,'l8_18in.txt'); min(a,b); max(a,b); vived(g,m,a,'l8_18out.txt'); readkey; end.
Ответов - 0
полная версия страницы