Помогите! Завтра надо сдавать все задачи, а у меня не хватает еще пару задач))) Паскаль

Вот правильное решение задач

Первая задача:
uses crt;
var m:set of byte;
a:array[1..100] of integer;
i,n,min:integer;
begin
clrscr;
writeln('количество элементов множества ');
readln(n);
for i:=1 to n do
begin
writeln('введите ',i,'-ый элемент множества');
readln(a[ i ]);
end;
min:=a[ 1 ];
for i:=2 to n do
begin
if min > a[ i ] then
min:=a[ i ];
end;
m:=[];
for i:=1 to n do begin
if a[ i ] mod min = 0 then
include(m,a[ i ]);
end;
for i:=1 to n+1 do
if i in m then write(i,' ');
readln;
end.

Вторая задача:
uses
crt;
var
a:array [1..100,1..100] of integer;
i,j,str,col,min,max,temp,tempmini,tempminj,tempmaxi,tempmaxj:integer;
begin
clrscr;
Write('Введите количество строк в матрице: ');
readln(str);
write('Введите количество столбцов в матрице: ');
readln(col);
writeln;
writeln('Исходная матрица: ');
for i:=1 to str do
begin
for j:=1 to col do
begin
a[i,j]:=random(8)-4;
write(a[i,j]:2,' ')
end;
writeln
end;
min:=a[1,1];
tempmini:=1;
tempminj:=1;
max:=min;
tempmaxi:=1;
tempmaxj:=1;
for i:=1 to str do
for j:=1 to col do
begin
if a[i,j] < min then
begin
min:=a[i,j];
tempmini:=i;
tempminj:=j
end;
if a[i,j] > max then
begin
max:=a[i,j];
tempmaxi:=i;
tempmaxj:=j
end
end;
temp:=a[tempmini,tempminj];
a[tempmini,tempminj]:=a[tempmaxi,tempmaxj];
a[tempmaxi,tempmaxj]:=temp;
writeln;
writeln('Полученная матрица: ');
for i:=1 to str do
begin
for j:=1 to col do
begin
if ((i=tempmini)and(j=tempminj)) or ((i=tempmaxi)and(j=tempmaxj)) then
textcolor(4)
else
textcolor(15);
write(a[i,j]:2,' ')
end;
writeln;
end;
readln;
end.

так и тянет сказать. . Что УМА не хватает, а лени дохера

1) var a:array[1..100] of integer;
n,i,min:integer;
begin
writeln('Введите количество элементов');
readln(n);
for i:= 1 to n do
begin
writeln('Введите', i,' элемент множества');
readln(a);
end;
min:=a;
for i:=2 to n do
if a<min>;
writeln('Эти числа кратны минимальному элементу ');
for i:=1 to n do
if(min mod a=0) and a<>min then write(a);
readln;
end.
2)var a:array[1..100] of integer;
n,i,min,max,x,y,k:integer;
begin
writeln('Введите количество элементов в матрице');
readln(n);
for i:= 1 to n do readln(a);
min:=a[1]; max:=a[1]; x:=1; y:=1;
for i:= 1 to 30 do
begin
if a>max then begin max:=a; x:=i; end;
if a<min>; y:=i; end;
end;
k:=a[x];
a[x]:=a[y];
a[y]:=k;
for i:= 1 to 30 do writeln(a);
end.

во первых, фак показывать как я говорил, и при этом что-то просить-это очень нагло! , а во вторых тебе надо здавать задачи если так уже пошло... и на жалость не дави! , что думаешь так просто тебе решат задачи а ты не прикладешь к этому никакого усилия.... так что лучше в твоём случае решай сам!

Ты надеешься тебе код кинут? Народ такими вещами не занимается.. . Вопросы по реализации в студию!