var i,max: integer; fio: string; x: array[1..5] of integer; f1,f2: text; begin assign(f1, 'out.txt'); assign(f2, 'out2.txt'); rewrite(f1); rewrite(f2); for i: =1 to 5 do begin writeln('daite fio ',i,'-ogo rabotnika'); readln(fio); writeln('daite otklad rabotnika ',i); readln(x[i]); writeln(f1, i,' ',fio,' ',x[i]); fio: =''; end; max: =x[1]; for i: =1 to 5 do if x[i]> max then max: =x[i]; writeln(f2, max); close(f1); close(f2); readln; end.
rabotatet! proveril v pascale
Поделитесь своими знаниями, ответьте на вопрос:
По нескольким опредилениям отгадайте термины, которые используются в информатике. 5. секретная, научная, ложная, техническая, полная. 7. табличный, текстовый, центральный. 8.годовой, бесконечный, нулевой, вложенный.