для массива A заданы числа от 1 до 6, 1 символ = 2 байта, 6 * 2 = 12 байт.
begin
var a := ArrRandomReal(10,-99,99);
a.Println;
a[a.IndexMax] := a.Average;
a.Println;
end.
На PascalABC.NET
У орла - зрение. летучая мышь и дельфин находят окружающие предметы с помощью геолокации. с ее помощью они чувствуют препятствия и не натыкаются на них. летучие мыши охотятся, находя так жертв. не знаю, какой орган у них развит. слух, наверно. а у крота хорошо развито осязание
1)
uses crt;
var i:integer;
A:array[0..15] of integer;
begin
For i:= 0 to 15 do
A[i]:= i+1;
For i:= 0 to 14 do
A[i]:= A[i+1];
For i:=0 to 15 do
write(A[i],' ');
end.
2) Перемещает первый элемент массива в конец.
<span>Program flint</span>
<span>var </span>
<span>S, i: integer; </span>
<span>begin </span>
<span>writeln('Введите S'); </span>
<span>readln(S); </span>
<span>for i:=1 to 10 do </span>
<span>s:=s*1,03/0,98; </span>
<span>writeln('Реальная сумма через 10 лет: '); </span>
<span>writeln(S); </span>
<span>readln(); </span>
<span>end.</span>