Консультация № 138684
30.05.2008, 14:42
0.00 руб.
0 1 1
Уважаемые эксперты!помогите пожалуйста решить следующую задачу:
Выполните обработку элементов прямоугольной матрицы А,имеющей N строк и М столбцов.Исключить из матрицы столбец с номером L.Сомкнуть столбцы матрицы.
Спасибо!)

Обсуждение

давно
Профессор
401888
1232
31.05.2008, 21:55
общий
это ответ
Здравствуйте, Igor lukashov!
Решение задачи в приложении.

Приложение:
uses crt;var n,m,i,j:integer; L:integer; a:array[1..50,1..50]of integer;beginclrscr;write(‘n=‘);readln(n);write(‘m=‘);readln(m);repeat {цикл проверки правильного ввода L}write(‘vvedite L<=m: ‘);readln(L);if (L<1)or(L>m)thenwriteln(‘Nedopustimoe znachenie, povtorite!‘);until (L>=1)and(L<=m);randomize;writeln(‘Ishodnaja matrica:‘); for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(10); write(a[i,j]:3); end; writeln; end;readln;{Udalenie stoldca}for i:=1 to n dofor j:=L to m-1 do begin a[i,j]:=a[i,j+1]; {сдвигаем все столбцы влево до L} end;writeln(‘Rezultat:‘);for i:=1 to n do begin for j:=1 to m-1 do write(a[i,j]:3); writeln; end;readln;end.end.
Форма ответа