Помогите пожалуйста!!!Решить на паскале : Дан массив размером 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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
