• Помогите найти ошибку в программе. Задание:Дан целочисленный массив В[1..4, 1..3]. Заменить все его элементы их квадратами.
    program Massif;
    var
    a:array [1..4,1..3] of integer;
    m,n,i,j:integer;
    begin
    for i:=1 to 4 do
    for j:=1 to 3 do
    begin
    write('a[i,j]=');
    Readln(a[i,j]);
    a[i,j]:=sqr(a[i,j]);
    end;
    for i:=1 to n do begin
    for j:=1 to m do
    write(a[i,j],' ');
    writeln;
    end;
    end.

Ответы 1

  • program Massif;const n=4; m=3;vara:array [1..n,1..m] of integer;i,j:integer;beginfor i:=1 to n dofor j:=1 to m dobeginwrite('a[',i,',',j,']=');Readln(a[i,j]);a[i,j]:=sqr(a[i,j]);end;for i:=1 to n do beginfor j:=1 to m do write(a[i,j]:4);writeln;end;end.
    • Автор:

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

Войти через Google

или

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

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

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