Впаскале двухмерный массив размерностью 6 и 4 заполнить 1 строку единицами , 2 строку двойками, 3 строку тройками.

catBoss009 catBoss009    2   08.06.2019 01:40    2

Ответы
fatima777799ozu0sv fatima777799ozu0sv  07.07.2020 13:25
Var
  i,j:integer;
  a:array[1..6,1..4]of integer;
begin
for i:=1 to 3 do
  for j:=1 to 4 do  a[i,j]:=i;
for i:=4 to 6 do
  for j:=1 to 4 do  a[i,j]:=random(10);
writeln('Массив: ');
for i:=1 to 6 do
  begin
  for j:=1 to 4 do  write(a[i,j]:3);
  writeln;
  end;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика