Даны два числа n и m. Создайте двумерный массив A[n][m], заполните его таблицей умножения A[i][j]=i*j и выведите на экран. При этом нельзя использовать вложенные циклы, все заполнение массива должно производиться одним циклом.
Даны два числа n и m. Создайте двумерный массив A[n][m], заполните его таблицей умножения A[i][j]=i*j и выведите на экран. При этом нельзя использовать вложенные циклы, все заполнение массива должно производиться одним циклом.
Гость
Ответ(ы) на вопрос:
ГостьВроде так!!!
program Project4
{$APPTYPE CONSOLE}
uses
SysUtils;
var
a:array[0..100,0..100]of integer;
i,j,n,m:integer;
begin
read(n,m);
i:=0; j:=-1;
while i=m then
begin j:=0; inc(i);
end;
end;
for i:=0 to n-1 do begin
for j:=0 to m-1 do
write(a[i,j],' ');
writeln;
end;
readln;
readln;
end.
Не нашли ответ?
Похожие вопросы