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

UptoLike

ВУЗ: 

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

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

Рубрика: 

113
2 (3) 4 5 6
р–––––––––¦
c) сдвиг элементов массива следующих за k-м на одну позицию влево;
d) восстановление последнего значения из переменной р.
read(k);
{а} for i:=1 to n do read (a[i]);
{b} p:=a[k];
{c} for i:=k to n–1 do
a[i]:=a[i+1];
{d} a[n]:=p;
{вывод a}.
4) Перенос в начало одномерного массива элемента с k-й позиции.
Алгоритм:
а) ввод элементов массива;
b) сохранение элемента с k-й позиции в дополнительной переменной p;
с) сдвиг всех элементов до
элемента с номером k вправо;
d) записать на первое место значение из переменной p.
read(k);
for i:=1 to n do read (a[i]); 2 3 {4} 5 6
p:=a[k]; |
for i:=k downto 2 do –––––p
a[i]:=a[i–1]; 2 2 3 5 6
a[1]:=p;
{вывод a}
Пример 7.1. Вычислить сумму элементов массива.
program a8;
var
a:array[1..10]of real;
i:integer;
c:real;
begin
c:=0;
writeln('Вычислить сумму элементов массива');
writeln(' Введите 10 элементов массива');
for i:=1 to 10 do
begin
write(i,' элемент= ');
readln(a[i]);
c:=c+a[i];
end;
writeln('Сумма элементов массива = ',c);

Страницы