Question

Помогите пожалуйста!!!Решить на паскале : Дан массив размером m на n,заполнить его по следующему правилу: строчки 1,3,5,7 и т.д

Answer 1

Const  nx = 11;mx = 11;
var  x: array[1..nx, 1..mx] of integer; r:real;  i, j, k, z,g,n,m,t: integer;
begin
k:=1;
Writeln('Введите число строк n ');Read(n);
Writeln('Введите число столбцов m ');Read(m); 
Writeln('Исходный массив');
for i := 1 to n do begin   
for j := 1 to m do begin        
 x[i, j]:=k;     
Write(x[i, j]:4);     
 k:= k+2;    end;   
Writeln;  end; end.