вот условия
1.Составить программу нахождения наибольшего общего делителя четырех натуральных чисел.
{Для двух чисел я знаю как искать, а именно применяя метод Евклида, но вот для четырёх чего то до меня не доходит...}
2.Вставить нулевую строку и нулевой столбец перед строкой и столбцом, где находится первый минимальный элемент.
{я в общем пробовал её решить, но получается чего-то не то, программа обнуляет не ту строку, а вернее стирает строку с найденным минимальным элементом, а по условию она должна вставлять пустую строку и столбец перед найденным минимальным элементом, а последний сдвигать}
в общем вот как я её решаю...
Код
program 009;
uses crt;
label lb1;
var
i,j,n,m,k,l: integer;
mas:array[1..50,1..50] of integer;
begin
clrscr;
writeln('Введите размерность массива (число строк n и число столбцов m): ');
read(n,m);
randomize;
write('Данный массив:');
for i:=1 to n do
for j:=1 to m do
mas[i,j]:=-10+random(40);
for i:=1 to n do begin writeln;
for j:=1 to m do
write(mas[i,j]:5); end;
for j:=1 to m do
for i:=1 to n do
if mas[i,j]<0 then begin
k:=j; l:=i;
writeln;
for j:=k to m do
for i:=l to n do
mas[l,k]:=mas[i,j]; end;
write('Получился массив вида');
for j:=k to m do
for i:=l to n do begin
mas[i,k]:=0; mas[l,j]:=0; end;
for i:=1 to n do
for j:=1 to m do
begin writeln;
for j:=1 to m do
write(mas[i,j]:5);end;
readkey;
end.
