Заполнить двумерный массив по заданному правилу - Pascal ABC (13363)
Формулировка задачи:
Доброго времени суток. Помогите разобраться с задачей. Дан одномерный массив А[20]. Заполнить двумерный массив B(10*10) по следующему правилу: четные строки массива В заполнить элементами расположенными на четных позициях массива А, нечетные строки массива В заполнить элементами расположенными на нечетных позициях массива А.
Решение задачи: «Заполнить двумерный массив по заданному правилу»
textual
Листинг программы
const n=10;
var a:array[1..2*n] of integer;
b:array[1..n,1..n] of integer;
i,j:byte;
begin
randomize;
writeln('Массив А');
for i:=1 to 2*n do
begin
a[i]:=random(100);
write(a[i]:3);
end;
writeln;
writeln('Массив В');
for i:=1 to n do
begin
for j:=1 to n do
begin
if odd(i)then b[i,j]:=a[2*j-1]
else b[i,j]:=a[2*j];
write(b[i,j]:3);
end;
writeln;
end;
end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д