• Что тут неправильно ?

    var a:array[1..10,1..10] of integer;
    i,m,n,j,k: integer;
    s:real;
    begin
    Write ('m=');readln(m);
    write('n=');readln(n);
    for i:=1 to m do 
    for j:=1 to n do
    a[i,j]:=random(50);
    for i:=1 to n do
    begin  for j:=1 to m do 
     write(a[i,j]:4);  writeln;end;
    for i:=0 to m do
    begin for j:=0 to n do
    begin if a[i][j]=0 then
    begin a[i][j]:=i+j;end;end;end;
    a[i,j]:=k; writeln('k=',k);end.

    Дан массив. Изменить массив по следующему правилу Все нулевые элементы заменить суммой индексов элемента;

Ответы 7

  • эм, и что ? ничего не изменится
  • не изменяется?
  • Мне вот это выдает: 30Ошибка времени выполнения: System.IndexOutOfRangeException: Индекс выходит за границы массиваСтек: at Program1.Program.$Main() in C:\PABCWork.NET\Program1.pas:line 15 at Program1.Program.Main()
  • все равно у меня не сильно то получается
    • Автор:

      rory69
    • 6 лет назад
    • 0
  • Помоги пожалуйста
  • var a :array[1..10,1..10] of integer;
  • Ты объявила массив от 1 до 10, а в конце в цикле пытаешься обратиться к элементу с индексом 0! (for i:=0 to m dobegin for j:=0 to n do)Ну и куча мелких недочетов еще тут естьconst  n=5;  m=6;var  a:array[1..n,1..m] of integer;  i,j: integer;beginwriteln('Исходный массив:');for i:=1 to n do   begin   for j:=1 to m do     begin     a[i,j]:=random(10);     write(a[i,j]:4);     end;   writeln;   end;writeln('Измененный массив:');for i:=1 to n do   begin   for j:=1 to m do     begin     if a[i,j]=0 then a[i,j]:=i+j;     write(a[i,j]:4);     end;   writeln;   end;end.
  • Добавить свой ответ

Войти через Google

или

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

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

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