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

Материал из wiki.nntc.nnov.ru
Перейти к навигации Перейти к поиску

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.