Алгоритмы и программы. Афанасьева Т. В - 120 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

120
Пример 7.10. В одномерном массиве перенести элемент, стоящий на
первом месте в конец массива.
program a7;
var
p,i:integer;
a:array[1..10] of integer;
begin
writeln(' В одномерном массиве перенести элемент,');
writeln(' стоящий на первом месте в конец массива,');
writeln('Введите 10 элементов массива через пробелы');
for i:=1 to 10 do
read(a[i]);
p:=a[1]; { перенос }
for i:=1 to 9 do
a[i]:=a[i+1];
a[10]:=p;
writeln('Результат');
for i:=1 to 10 do
write(a[i],' ');
readln;
readln;
end.
Пример 7.11. В одномерном массиве найти минимальное значение и
удалить его.
program a7;
var
amin:integer;
imin,i:integer;
a:array[1..10]of integer;
begin
writeln('Найти минимальное значение и удалить
его ');
writeln('Введите 10 элементов массива через пробел');
for i:=1 to 10 do
read(a[i]);
amin:=a[1];
imin:=1;
for i:=2 to 10 do
begin
if a[i]<amin then
begin {поиск min}
amin:=a[i];
imin:=i;

Страницы