Помогите решить задачу на паскале: в двумерном массиве хранятся результаты (время в минутах), показанные каждым из 12 автогонщиков на каждом из 10 этапов соревнований «Формула-1». После 10 этапа участник с порядковым номером 4 ...
Помогите решить задачу на паскале: в двумерном массиве хранятся результаты (время в минутах), показанные каждым из 12 автогонщиков на каждом из 10 этапов соревнований «Формула-1». После 10 этапа участник с порядковым номером 4 выбыл из соревнований. Изменить массив так, чтобы в нем не было результатов бывшего гонщика.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы