Двумерный массив

[tomas876]

дан двумерный массив А(7,7).заменить в нем все положительные члены произведением порядковых номеров. Как это делать?

[p51x]

В один проход..

[Stilet]

p51x

Шутник, ну раз так то присоединюсь:

  var a:array[1..7,1..7] of integer;
  i:integer;
begin
 for i:=1 to 7*7 do begin
  a[i div 7,i mod 7]:=10-random(20);
  write(a[i div 7,i mod 7]:5);
 end;
 writeln;
  { TODO -oUser -cConsole Main : Insert code here }
 for i:=1 to 7*7 do begin
  if a[i div 7,i mod 7]>0 then a[i div 7,i mod 7]:=(i div 7+1)*(i mod 7);
  write(a[i div 7,i mod 7]:5);
 end;
 readln;
end.

[tomas876]

Program macciv;
Uses
CRT;
var a:array[1..7,1..7] of integer;
i:integer;
begin
clrscr;
for i:=1 to 7*7 do begin
a[i div 7,i mod 7]:=10-random(20);
write(a[i div 7,i mod 7]:5);
end;
writeln;
{ TODO -oUser -cConsole Main : Insert code here }
for i:=1 to 7*7 do begin
if a[i div 7,i mod 7]>0 then a[i div 7,i mod 7]:=(i div 7+1)*(i mod 7);
write(a[i div 7,i mod 7]:5);
end;
readln;
end.


пишет ошибку . может у меня паскаль как то нет установлен? помогите.

[tomas876]

Сообщение от tomas876

Program macciv;
Uses
CRT;
var a:array[1..7,1..7] of integer;
i:integer;
begin
clrscr;
for i:=1 to 7*7 do begin
a[i div 7,i mod 7]:=10-random(20);
write(a[i div 7,i mod 7]:5);
end;
writeln;
{ TODO -oUser -cConsole Main : Insert code here }
for i:=1 to 7*7 do begin
if a[i div 7,i mod 7]>0 then a[i div 7,i mod 7]:=(i div 7+1)*(i mod 7);
write(a[i div 7,i mod 7]:5);
end;
readln;
end.


пишет ошибку . может у меня паскаль как то нет установлен? помогите.

еще выводит одни и теже цифры 10 10 -7

[Ol'ga_new]

Программа работает нормально, а для красоты вывода можно добавить:

if (i mod 7)=0 then writeln;

(в конце обоих циклов)