Количество записей, удовлетворяющих запросу предмет ≠ равно:
ответы: 1). 27 2). 8 3). 30 4). 22 5). 38

169

338

Посмотреть ответы 1

Ответы на вопрос:

gzhanatugan

Информатика

4,4(74 оценок)

Вот , правда с выводом проблемы , т.к. в текстовом документе последняя строка пустая т.е. = 0 и самое маленькое значение равно всегда 0. вот код думаю допилишь сам program z; var imin,i: integer; inf,outf: text; beginimin: =0; assign(inf,'in.txt'); reset(inf); while not eof(inf) do begin readln(inf,i); if i< imin then imin: =i; end; close(inf); assign(outf,'out.txt'); rewrite(outf); writeln(outf,imin); close(outf); end.