Алгоритм приготовления гречневой каши обыкновенной. )
1. Поставить кастрюлю на стол
2. поставить стакан на стол
3. Поставить упаковку с гречкой на стол
4. поставить графин с водой на стол
5. насыпать полный стакан гречки
6. пересыпать гечку в кастрюлю
7. выполнить 2 раза
7.1 налить полный стакан воды
7.2. перелить стакан воды в кастрюлю
8. зажечь огонь на плите
9. поставить кастрюлю с гречкой на огонь
10. Выполнять пока не закипит
10.1. Ждать
11. Посолить
12. Накрыть крышкой кастрюлю
13. Пока не мин
13.1. Ждать
14. Выключить огонь.
Гречка готова. )
const
n = 20;
var
a:array[1..n] of integer;
i, k:integer;
begin
randomize;
writeln('Исходный массив: ');
for i := 1 to n do
begin
a[i] := random(51);
write(a[i], ' ');
end;
writeln;
write('k = '); readln(k);
if (k > n) or (k < 1) then
begin
writeln('элемента с таким индексом нет');
readln;
Exit;
end;
for i := k to n - 1 do
a[i] := a[i + 1];
a[n] := 0;
writeln('Измененный массив:');
for i := 1 to n - 1 do
write(a[i], ' ');
readln;
writeln;
end.
