Помогите решить задачу ** паскале: в двумерном массиве хранятся результаты (время в...

Question

Помогите решить задачу на паскале:

в двумерном массиве хранятся результаты (время в минутах), показанные каждым из 12 автогонщиков на каждом из 10 этапов соревнований «Формула-1». После 10 этапа участник с порядковым номером 4 выбыл из соревнований. Изменить массив так, чтобы в нем не было результатов бывшего гонщика.

Comments

"не было" - это заменить их на нули? Или сдвинуть, перенести на их место следующие значения массива?

---

сдвинуть, перенести на их место следующие значения массива

Answer 1

Var
  i,j:integer;
  a:array[1..12,1..10]of integer;
begin
writeln ('Исходная таблица: ');
for i:=1 to 12 do
  begin
  for j:=1 to 10 do
    begin
    a[i,j]:=50+random(10);
    write(a[i,j]:3);
    end;
  writeln;
  end;
writeln;
for i:=5 to 12 do
  for j:=1 to 10 do
    a[i-1,j]:=a[i,j];
for j:=1 to 10 do a[12,j]:=0;
writeln ('Измененная таблица: ');
for i:=1 to 11 do
  begin
  for j:=1 to 10 do
    write(a[i,j]:3);
  writeln;
  end;
end.