массивы

[Natasha2332]

Ask the user to input three positive integers M, N and q. Make the 2 dimensional array of integers with size MxN, where all the elements of I (I = 1,…,M) line will be members of geometrical progression with first element equal to the number of line (I) and denominator q.

Спросите пользователю ввести три целые положительные числа M, N и Q. Сделать 2 одномерный массив целых чисел с размером MXN, где все элементы I (I = 1, ..., M) линия будет члены геометрической прогрессии с первого элемента, равное числу линии (I) и знаменателя q.

пожалуста помогите

[ZX Spectrum-128]

Неправильно перевели. Сделать двумерный массив...

И еще. Паскаль какой? Free, abc, какой-то еще?

[Poma][a]

Неправильно перевели.

Это нужно гугл переводчику говорить

И еще. Паскаль какой? Free, abc, какой-то еще?

А какая разница? Разве в данной задаче это играет хоть какую-то роль?

[Natasha2332]

free pascal

[ZX Spectrum-128]

И еще. Паскаль какой? Free, abc, какой-то еще
А какая разница? Разве в данной задаче это играет хоть какую-то роль?

Ээээээ, да.
Не туда подумал

[Kemperh4]

Держи, проверял на ABC

Program p1;
var i,j,M,N,Q:integer;
mas: array[1..100,1..100] of longint;
begin
Writeln ('Input three positive integers:');
Read(M,N,Q);
For i:=1 to M do begin
mas[i,1]:=i;
For j:=2 to N do 
mas[i,j]:=mas[i,j-1]*Q;
end;

For i:=1 to M do begin
For j:=1 to N do
Write(mas[i,j],' ');
writeln;
end;
end.

[Natasha2332]

Спасибо большое!!