Помогите переделать этот код под текстовый файл с числовыми данными 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] ...
Помогите переделать этот код под текстовый файл с числовыми данными
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.
Гость
Ответ(ы) на вопрос:
ГостьПрограмма:
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" и выводит максимальную разность двух чисел
Не нашли ответ?
Похожие вопросы