Question

помогите переделать этот код под текстовый файл с числовыми данными
Var
i,min,max:integer;
a:array[1..70]of integer;
begin
for i:=1 to 70 do
begin
a[i]:=random(100);
write(a[i],' ');
if i=1 then min:=a[i]
else if a[i] if a[i]>max then max:=a[i];
end;
writeln;
writeln('Ответ: ',max-min);
end.

Answer 1

Программа:
var
  min, max, a: integer;

begin
  assign(input, 'input.txt'); reset(input);
  read(a);
  max := a;
  min := a;
  while not(eof(input)) do
  begin
    read(a);
    if a > max then max := a;
    if a < min then min := a;
  end;
  writeln('Ответ: ', max - min);
end.
Описание программы:
Программа считывает все числа из входного файла "input.txt" и выводит максимальную разность двух чисел

Answer 2

а вы не могли бы мне помочь, еще с одной задачкой в этой же теме, просто никак не могу ее сделать?

Answer 3

конечто

Answer 4

http://znanija.com/task/16060088 вот ссылка