3 вариант, все остальное рассуждение.
// Написать программу: Гречу, массой х г, рассыпают по пакетам: по а г в каждый.
//Пакетов может быть неограниченное количество. Сколько гречи будет в
//последнем заполненном пакете?
var x,a : longword;
begin
writeln ('Введите общую массу гречи, в граммах');
readln (x);
writeln ('Введите массу насыпаемой в пакет гречи, в граммах');
readln (a);
writeln ('полных пакетов будет ',(x div a));
if (x mod a)=0 then writeln ('В последнем насыпанном пакете будет ',a,' грамм гречи')
else writeln ('В последнем насыпанном пакете будет ',(x mod a),' грамм гречи');
<span>end.</span>
//PascalABC.Net 3.0, сборка 1064
var
a:array[1..7] of integer;
i:integer;
begin
Randomize;
Write('Исходный массив: ');
for i:=1 to 6 do begin
a[i]:=Random(20);
Write(a[i],' ')
end;
Writeln;
for i:=6 downto 3 do a[i+1]:=a[i];
Write('Введите значение вставляемого элемента: '); Read(a[3]);
Write('Результирующий массив: ');
for i:=1 to 7 do Write(a[i],' ');
Writeln
end.
<em><u>Тестовое решение:</u></em>
Исходный массив: 8 2 5 0 6 17
Введите значение вставляемого элемента: -5
Результирующий массив: 8 2 -5 5 0 6 17
Неправильно записан ответ на последний пример. Исправь.
А закономерность очень простая. Первоначально идет повышение на одну единицу (т.е. 1 → 2 → 3→...), а в дальнейшем понижение на одну единицу (т.е. ...→3→2→1)
Собственно и все :)