profile
Опубликовано 5 лет назад по предмету Информатика от write1998

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

  1. Ответ
    Ответ дан Аккаунт удален
    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.
Самые новые вопросы