Записать в элемент массива [4,6] значение произведения индексов
Записать в элемент массива [4,6] значение произведения индексов
Гость
Ответ(ы) на вопрос:
Гостьtype mas = array[1..10, 1..10] of integer;
....Это для всех элементов
for x:=1 to 10 do begin
for y:=1 to 10 do begin
mas[x,y] = x * y;
end;
end;
....Это только для 4,6
mas[4,6] = 4*6
Гостьconst
k = 4;
p = 6;
var
f: array [1..k, 1..p] of byte;
begin
for i: byte := 1 to k do
begin
for j: byte := 1 to p do
begin
f[i, j] := random(10, 100);
write(f[i, j]:3);
end;
writeln();
end;
//////////////////////////////////////////////////
writeln();
f[k, p] := k * p;
//////////////////////////////////////////////////
for i: byte := 1 to k do
begin
for j: byte := 1 to p do
write(f[i, j]:3);
writeln();
end;
end.
Не нашли ответ?
Похожие вопросы