Ответы и объяснения

2013-06-26T13:59:18+04:00

var

  t:array [1..8,1..4] of integer;

  i,j:integer;

begin

  randomize;

  writeln ('Исходный массив');

  for i:=1 to 8 do begin

   for j:=1 to 4 do begin

    t[i,j]:= random(9)+1;

    write (t[i,j]:4);

   end; 

   writeln;

  end;

  writeln ('Полученный массив');

  for i:=1 to 8 do begin

   for j:=1 to 4 do begin

    if i mod 2 = 0 then t[i,j]:=0;

    write (t[i,j]:4);

   end;

   writeln;

  end;

  readln;

end.

  • Sky09
  • профессор
2013-06-26T14:24:09+04:00

uses crt;
var
  T:array [1..8,1..4] of integer;
  m,n:integer;
begin
  randomize;
  writeln ('T[8,4]:');
  for m:=1 to 8 do
  begin
    for n:=1 to 4 do
    begin
      T[m,n]:= random(10)-9;
      write (t[m,n],' ');
    end;
    writeln;
  end;
  writeln ('Новый массив: ');
  for m:=1 to 8 do

  begin
    for n:=1 to 4 do

    begin
      if m mod 2 = 0 then t[m,n]:=0;
      write (t[m,n],' ');
    end;
    writeln;
  end;
end.