Найти минимальный элемент и номер первого минимального элемента массива из 10 элементов....

Question

Найти минимальный элемент и номер первого минимального элемента массива из 10 элементов. Массив считывается из файла, результат дописывается в этот же файл.

Answer 1

В той же папке, где будет программа, создаете два блокнота, называете input и output
a:array[1..10000] of integer;
i, k, min, imin:integer;
begin
assign(input,'input.txt');
reset(input);
assign(output,'output.txt'); { если в тот же, то assign(input,'input.txt');
rewrite(output);                     rewrite(input);}
for i:=1 to 10 do
read(a[i]);
min:=a[1];
for i:=1 to 10 do
if min>a[i] then begin min:=a[i]; imin:=i; end;
writeln;
writeln(min,' ', imin); 
end.
задание вписать в тот же файл делаю впервые, поэтому за правильность вывода не отвечаю.

Comments

А close не надо использовать? Вроде бы физическая запись на диск только после него происходит?

---

неа. просто запустите программу. она скомпелируется. появится exe файл. в input записывают входные данные, запускается exe файл, в блокнот записывается результат