Обсуждение:Лабораторная работа №7 Инициализация и использование в программах текстовых файлов: различия между версиями

@@ Строка 1: / Строка 1: @@
-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,sr:4:2);
-end;
-close(f);
-readln;
-end.

Текущая версия на 11:40, 30 июня 2008