Задача:
найти минимальное число в массиве, присвоить его значение к первому элементу массива; а вместо минимального числа записать 10.
Как найти минимальное и присвоить его первому элементу я додумался. Но как присвоить к заведомо неизвестному в массиве элементу 10 я не смог.
Вот код:
program test26;
var c:array[1..100] of real;
i,n:integer;
min,m:real;
begin
writeln ('vvedite dlinnu massiva');
readln (n);
writeln ('vvedite el messiva');
for i:=1 to n do
readln (c[i]);
min:=c[1];
for i:=2 to n do
if (min>=c[i]) then
begin
min:=c[i];
c[1]:=min;
end;
writeln ('masiv= ');
for i:=1 to n do
write (c[i]:4:0);
readln
end.