PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018 Внимание! Если программа не работает, обновите версию!
begin var q:=new Queue<integer>; var n:=ReadInteger('Кол-во элементов (не менее 4):'); Randomize; var k:integer; for var i:=1 to n do begin k:=Random(-20,40); Print(k); q.Enqueue(k) end; Writeln; // очередь заполнена, выведены ее элементы var (ko,s):=(-100,0); for var i:=1 to n do begin k:=q.Dequeue; q.Enqueue(k); if k.IsOdd then ko:=k; if i=3 then s:=k end; s+=ko; q.Enqueue(s); q.Println; // искомая сумма помещена в очередь for var i:=1 to n do begin k:=q.Dequeue; if i<>4 then q.Enqueue(k) end; q.Println end.
![Заполнить очередь случайными числами из интервала [-20; 40]. найти сумму последнего нечетного элемен](/tpl/images/0891/5149/7c43f.jpg)
Const Size = 7;
Var
Ball: array[1..Size] of real;
Ocenka: array[1..Size] of integer;
Counter: integer;
Begin
Counter := 1;
while (Counter <= Size) do
begin
Write('Введите ', counter, ' ученика: ');
Readln(Ball[Counter]);
Counter := Counter + 1;
end;
Counter := 1;
Repeat
if (Ball[Counter] > 90) then
Ocenka[Counter] := 5
else if (Ball[Counter] >= 75) and (Ball[Counter] < 90) then
Ocenka[Counter] := 4
else if (Ball[Counter] >= 50) and (Ball[Counter] < 75) then
Ocenka[Counter] := 3
else
Ocenka[Counter] := 2;
Counter := Counter + 1;
Until (Counter > Size);
Writeln();
for var i := 1 to Size do
Writeln('Оценка ', i, ' ученика: ', Ocenka[i]);
End.