Var
Z:array [1..10] of Integer;
i,max,min:integer;
Begin
WriteLn('Введите массив:');
For i:= 1 to 10 do
Begin
Write('Z(',i,') = ');
ReadLn(Z[i]);
End;
max:=Z[1];
min:=Z[1];
For i:= 2 to 10 do
begin
if (Z[i]>max) then max:=Z[i];
if (Z[i]<min) then min:=Z[i];
End;
Writeln('Наибольшее число = ',max);
Writeln('Наименьшее число = ',min);
end.
С помощью команд.
3
вперед (50)
Движение вперед на 50 шагов (точек экрана)
4
вправо (90)
Повернуть направо на 90º
5
влево (180)
Повернуть налево на 180º
назад (60)
Движение назад на 60 точек
10*650=6500 кб * 8= 52000 Кбит
В кодирове ASCII кждый символ кодируется 1 байтом.
4000 байт/128 = 31,25 Кбит
52000+31,25=52031,25 Кбит/8192≈6,35 Мб
t=J/v; t=52031,25 Кбит / 256 Кбит/с ≈ 203,25c
While (условие) do
begin
(пишем что выполнить)
end;