• пожалуйста помогите переставить 3 и 5 столбец и 3 и 5 строку в массиве ...вроде правильно написала но выходит ошибка

    program mas55;
    const n=5;
    type st=array[1..n] of real;
    var i,j,d:integer;
    b:st;
    a:array[1..n] of st;
    begin
    for i:=1 to n do
    for j:=1 to n do if j=3 then a[i,j]:=sqr(i)*j else a[i,j]:=2;
    for i:=1 to n do
    begin
    for j:=1 to n do write (a[i,j]:6);
    writeln
    end;
    writeln;
    b:=a[3];
    a[3]:=a[4];
    a[4]:=b;
    for i:=1 to n do
    begin
    for j:=1 to n do write (a[i,j]:6);
    writeln;
    for i:=1 to n do
    begin
    d:=a[i,3];
    a[i,3]:=a[i,5];
    a[i,5]:=d
    end;
    for i:=1 to n do
    begin
    for j:=1 to n do write (a[i,j]:6);
    writeln
    end;
    writeln
    end
    end.

Ответы 6

  • строки
    • Автор:

      cuevas
    • 6 лет назад
    • 0
  • stirng тогда
    • Автор:

      montana
    • 6 лет назад
    • 0
  • а не ст
    • Автор:

      benny50
    • 6 лет назад
    • 0
  • двуменный массив задается так array [0..n,0..m] of integer к примеру так проще
    • Автор:

      audidpnn
    • 6 лет назад
    • 0
  • но ошибка то в не этом
  • что за тип данных st?
    • Автор:

      samir
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years