Помогите с задачками плиз

[Dok]

Помогите с задачками плиз

1)Вставить в массив А(10) число 5 на k-тое место (k- вводиться с клавиатуры)
2)Дан массив B(10) упорядочить его методом выбора по возростанию.
3)Дан массив B(5,5,) найти минимальный элемент в каждой строке массива.

Помогите плиз...Буду очень благодарен:tehnari_ru_088:

 

[N@tali]

вот держи Метод выбора по возрастанию

{сортировка выбором по возрастанию}
uses crt;
type mas=array [1..1000]of integer;{тип-массив целых чисел}
procedure SortVyb(var m:mas;n:integer);{внешняя процедура-сортировка по возрастанию
входной параметр-размер массивап N, входной и выходной-сам массив}
procedure Min(i:integer;var nmin:integer);{внутренняя процедура-поиск индекса минимального компонента
входной параметр-очередной индекс массива, выходной-индекс минимального на просматриваемом участке массива}
var j:integer;
begin
nmin:=i;
for j:=i+1 to n do
if m[j]<m[nmin] then nmin:=j;
end;
var i,nmin,buf:integer;{локальные переменные процедуры сортировки}
begin
for i:=1 to n-1 do
 begin
  Min(i,nmin);{ищем мин}
  buf:=m[i];{делаем обмен}
  m[i]:=m[nmin];
  m[nmin]:=buf;
 end;
end;
var a:mas;
    n,i:integer;
Begin
clrscr;
randomize;
write('n=');readln(n);
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(20)-9;
  write(a[i],' ');
 end;
writeln;
SortVyb(a,n);
writeln('Упорядоченный массив: ');
for i:=1 to n do
    write(a[i],' ');
readln;
end.

 

[shrek=)]

N@tali не понимаю зачем писать так много

const
n=10;
var
b:array [1..n] of integer;
j,i,k,l:integer;
begin
randomize;
for i:=1 to n do begin
b[i]:=random(100);
write (b[i],' ');
end;
writeln;
for i:=1 to n-1 do begin
l:=i;
for j:=i+1 to n do
if b[j]<b[l] then
l:=j;
k:=b[i];
b[i]:=b[l];
b[l]:=k;
end;
for i:=1 to n do
write (b[i],' ' );
readln 
end.

Емко и лаконично.

 

[N@tali]

)))) как умею

 

[shrek=)]

N@tali не понимаю зачем писать так много

const
n=10;
var
b:array [1..n] of integer;
j,i,k,l:integer;
begin
randomize;
for i:=1 to n do begin
b[i]:=random(100);
write (b[i],' ');
end;
writeln;
for i:=1 to n-1 do begin
l:=i;
for j:=i+1 to n do
if b[j]<b[l] then
l:=j;
k:=b[i];
b[i]:=b[l];
b[l]:=k;
end;
for i:=1 to n do
write (b[i],' ' );
readln 
end.

Емко и лаконично.

 

[N@tali]

вот поиск минимального

Uses CRT;
Var A:array[1..5, 1..5] of Real;
    Min,SumMin:Real;
    i,j:integer;
 Begin
  SumMin:=0;
  For i:=1 to 5 do
   Begin
    Min:=0;
    For j:=1 to 5 do
    If A[i,j]<Min then Min:=A[i,j];
    SumMin:=SumMin+Min;
   End;
End;

 

[shrek=)]

1)Вставить в массив А(10) число 5 на k-тое место (k- вводиться с клавиатуры)

var
k,i:integer;
a:array [1..10] of integer;
begin
randomize;
for i:=1 to 10 do begin
a[i]:=random(100);
write (a[i],' ');
end;
writeln ('enter k=');
readln (k);
a[k]:=5;
for i:=1 to 10 do
write (a[i],' ');
readln
end.

 

[shrek=)]

3)Дан массив B(5,5,) найти минимальный элемент в каждой строке массива.

N@tali мне кажется ваша программа находит сумму всех минимальных элементов матрицы. Я думаю правильнее будет сделать вот таким образом:

var
a:array [1..5,1..5] of real;
min:real;
i,j:integer;
begin
randomize;
for i:=1 to 5 do begin
writeln;
for j:=1 to 5 do begin
a[i,j]:=random(100);
writeln (a[i,j]);
end;
end;
min:=1110;
for i:=1 to 5 do begin
for j:=1 to 5 do
if a[i,j]<min then  min:=a[i,j];
writeln ('min',i,'=',min);
end;
readln
end.

 

[N@tali]

Точно. че то я на автомате уже.