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

Помогите пожалуйста!!!Решить на паскале : Дан массив размером m на n,заполнить его по следующему правилу: строчки 1,3,5,7 и т.д
Гость
Ответ(ы) на вопрос:
Гость
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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы