Флажок
идти 14 шагов , показаться
сказать : Ахх какой вкуснинький 3 секунды .
применить костюм на 1.
ЗАЯЦ
идти 7 шагов , показаться .
ждать 3 секунды
сказать: Не ешь меня , я ещё молодой .
спрятаться.
Закончить скрипт.:-D
Const
n = 20;
var
a: array[1..n] of real;
i, imax, imin: integer;
r, rmax, rmin:real;
begin
Randomize;
Writeln('Элементы массива');
rmax:=-1; { заведомо меньше меньшего }
rmin:=100; { заведомо больше большего }
for i := 1 to n do
begin
r:=Random(10);
a[i]:=r;
Write(r,' ');
if rmax<r then begin rmax:=r; imax:=i end;
if rmin>=r then begin rmin:=r; imin:=i end
end;
Writeln;
{ меняем местами и выводим результат }
a[imax]:=rmin; a[imin]:=rmax;
Writeln('Конечное состояние массива');
for i := 1 to n do Write(a[i],' ');
Writeln
end.
<em><u>Тестовое решение:</u></em>
Элементы массива
4 1 2 8 6 3 7 5 5 1 4 4 3 3 6 8 5 4 7 6
Конечное состояние массива
4 1 2 1 6 3 7 5 5 8 4 4 3 3 6 8 5 4 7 6
<em>Видно, что первая восьмерка поменялась местами с последней единицей.</em>
Водитель
машина (автомобиль)
движение
осязательное
машина завелась и они поехали на место назначение
1) Name: aray[1..10] of integer;
3)scr(1) scr(2) ...
4) Program Name;
uses crt;
var a,b,c:integer;
BEGIN
b:=0;
for a:=1 to 100 do
begin
b:=b+a;
end;
write ('Vash resultat =', b);
readln;
<span>END.
</span>
Лужа-ложа-кожа-кора-гора-горе
Паук-парк-пара-фара