Ответы на вопрос:
Pascalabc.net 3.3.5, сборка 1644 от 23.03.2018 внимание! если программа не работает, обновите версию! begin var f: file of real; // создаем файл rewrite(f,'myfileofreals.bin'); var a: =seqrandom(10,1,30).select(t-> t/10).toarray; a.println; for var i: =0 to a.length-1 do write(f,a[i]); f.close; // файл создан, далее собственно reset(f,'myfileofreals.bin'); f.seek(f.filesize-1); var p: =f.read; p.println; f.close end.
Популярно: Информатика
-
bogdan1001b28.11.2020 06:43
-
ОлесяБычкова24.03.2023 15:06
-
СаММЫч01.06.2020 10:25
-
Людочка1315.08.2021 03:14
-
sergeyyakimov0528.05.2020 14:54
-
EvgeniyNou13.05.2023 15:00
-
alena0212200510.01.2023 15:28
-
вадим123450987610.01.2021 12:45
-
200619790987606.08.2021 02:23
-
yashinaalyona2002.05.2023 23:56