var a:array [1..5] of integer;
i,max,k,j: integer;
begin
Write ('Введите элементы массива: ');
for i:= 1 to 5 do
read (a[i]);
max:=a[1];
for i:= 1 to 5 do
if a[i]>max then max:=a[i];
Writeln ('Максимальный элемент: ',max);
Writeln ('Элементы с непарными индексами: ');
for i:= 1 to 5 do
if i mod 2 <>0 then write (a[i], ' ');
for i:= 1 to 4 do
for j:= i+1 to 5 do
if a[i]<a[j] then
begin
k:=a[i];
a[i]:=a[j];
a[j]:=k;
end;
writeln();
writeln ('Массив, упорядоченный в порядке убывания: ');
for i:= 1 to 5 do
write(a[i], ' ');
end.
Объяснение:
RANDOMIZE TIMER
X = 100
Y = 100
DX = 1
DY = 1
1:X1 = X + DX
IF X1 < 20 OR X1 > 620 THEN DX = -DX: DY = INT(RND * 2)
Y1 = Y + DY
IF Y1 < 20 OR Y1 > 450 THEN DY = -DY: DX = INT(RND * 2)
LINE (X, Y)-(X + 10, Y + 10),0, B
LINE (X1, Y1)-(X1 + 10, Y1 + 10), 10, B
X = X1
Y = Y1
FOR I = 1 TO 3000000
'Число 3000000 можно менять, чем оно больше, тем скорость движения меньше
NEXT I
GOTO 1