Ответы на вопрос:
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
Популярно: Информатика
-
anastya303.08.2021 19:49
-
ninja2005xxx04.08.2020 22:45
-
FresAM0720.09.2020 01:11
-
Katemur2013.07.2022 18:59
-
viktorialychykowtuu415.09.2020 23:43
-
mixa86721.01.2022 20:45
-
приветпока422.12.2021 21:30
-
verbenalaym30.09.2022 17:12
-
НикаНик111128.09.2021 21:10
-
DedPool58PavkaPlay01.05.2020 03:42