Тем что существуют разные программы выполняющий разный тип и для каждый из них нужно, что то свое
ВайсманКреденс357
24.09.2022
Const n=4; { любое число n от 1 до 100000} var a: array [1..n] of integer; b,min,max, s: integer; proizvedenie: real; beginwriteln('введите n чисел'); for b: =1 to n do read (a[b]); for b: =1 to n do write(a[b],' '); min: =a[1]; max: =0; for b: =1 to n do begin if a[b]> max then max: =a[b]; if a[b]< min then min: =a[b]; end; proizvedenie: =max-min; writeln; writeln('minimum ',min,' ','maximum ',max,' proizvedenie= ',proizvedenie); readln; end.
kiparistop
24.09.2022
Program asd; var a: array[1..100000] of integer; b,c,i,n,imax,imin: integer; f1,f2: text; begin assign(f1,'input.txt'); assign(f2,'output.txt'); reset(f1); readln(f1,n); for i: =1 to n do begin read(f1,b); a[i]: =b; end; imax: =1; imin: =1; for i: =2 to n do if a[i]> a[imax] then imax: =i; for i: =2 to n do if a[i]< a[imin] then imin: =i; rewrite(f2); c: =a[imax]*a[imin]; write(f2,c); close(f1); close(f2); end.в папке с прогой надо создать два txt файла input, output.