Обсуждение:Лабораторная работа №7 Инициализация и использование в программах текстовых файлов: различия между версиями
Перейти к навигации
Перейти к поиску
(нег) |
|||
Строка 30: | Строка 30: | ||
readln; | readln; | ||
end. | end. | ||
+ | |||
+ | == нег == | ||
+ | |||
+ | нг |
Версия 11:16, 30 июня 2008
program projekt1;
{$APPTYPE CONSOLE}
uses
SysUtils,uCRT;
const m=5;n=6; var A:array[1..m,1..n] of integer;i,j:integer;f:text; S:array[1..n] of real; begin for i:=1 to m do begin for j:=1 to n do begin randomize; a[i,j]:=random(100); write(a[i,j],' '); s[j]:= end; writeln; end; assign(f,'File.txt'); rewrite(f); for i:=1 to m do begin for j:=1 to n do begin write(f,a[i,j],' '); end; writeln(f); writeln(f,s:4:2); end; close(f); readln; end.
нег
нг