Цитата:
Сообщение от Vladimir_S
Ладно, так и быть:
Код:
VAR
M:Array[1..3,1..5] of Byte;
V:Array[1..15] of Byte;
i,j,k:Byte;
BEGIN
Randomize;
For i:=1 to 3 do
begin
For j:=1 to 5 do
begin
k:=(i-1)*5+j;
M[i,j]:=Random(100);
V[k]:=M[i,j];
Write(M[i,j]:4);
end;
Writeln;
end;
Writeln;
For k:=1 to 15 do Write(V[k]:4);
Readln
END.
|
да, но не все так просто.
нужно использовать текстовые файлы, то есть, как я понимаю, записать все данные в файл