Сделать так, чтобы вставлялся порядковый номер перед каждым столбцом, а не только перед первым

@зеленокумск · Регистрация: 28.12.2013

Author24 — интернет-сервис помощи студентам

вот программа :

Pascal

uses crt;
var mas:array[1..100,1..100] of integer;
i,j,m,n:byte;
begin
write('m='); readln(m);
write('n='); readln(n);
randomize;
write('    ');
for j:=1 to m do write(j:4);
writeln;
for i:=1 to n do begin
write(i:4);
for j:=1 to m do begin
mas[i,j]:=random(100);
write(mas[i,j]:4);
end;
writeln;
end;
end.

а вот результат программы: Название: руз.png
Просмотров: 36

Размер: 1.5 Кб

@зеленокумск · 31.12.2013, 00:42 **[ТС]**

Кто может переделать? Нужно сделать так. чтобы вставлялся порядковый номер перед каждым столбцом, а не только перед первым.

@Cyborg Drone · 31.12.2013, 15:06

Элементарно. Печатать номер столбца перед каждым элементом.

Pascal

var mas:array[1..100,1..100] of integer;
i,j,m,n:byte;
begin
write('m='); readln(m);
write('n='); readln(n);
randomize;
for j:=1 to m do write(j:8);
writeln;
for i:=1 to n do begin
for j:=1 to m do begin
mas[i,j]:=random(100);
write(i:4, mas[i,j]:4)
end;
writeln
end;
readln
end.

@зеленокумск 0 / 0 / 0 Регистрация: 28.12.2013 Сообщений: 9
	31.12.2013, 00:42 [ТС]	2
	Кто может переделать? Нужно сделать так. чтобы вставлялся порядковый номер перед каждым столбцом, а не только перед первым. 0

	31.12.2013, 15:06

Опции темы