Замените число 10 в задании массива и циклах на нужное число действительных чисел (выделено жирным)
var
i, a, b, c: integer;
m: array[1..10] of real;
begin
for i := 1 to 10 do readln(m[i]);
for i := 1 to 10 do
begin
if m[i] > 0 then a := a + 1;
if m[i] = 0 then b := b + 1;
if m[i] < 0 then c := c + 1;
end;
writeln(с, ' ', a, ' ', b);
end.
Будут нарисованы песочные часы.
Конечное и начальное положение(учитываем что черепашка выполнила первую команду), будут одинаковы.
380+x=720
x=720-380
x=340
380+x=260+460
380+x=720
x=720-380
x=340
22, 25, 28, 52, 55, 58, 82, 85, 88
Program prim3;
uses crt;
var i,n,r,max,min,imax,imin:integer;
a:array[1..10000] of integer;
begin
clrscr;
randomize;
write('число элементов n= ');
readln(n);
for i:=1 to n do
begin
a[i]:=random(45)-22;
{Получаем случайные числа и выводим их на экран.}
write(a[i],' ');
end;
{За начальный максимум (минимум) берем первый элемент массива.}
min:=a[1]; max:=a[1];
for i:=1 to n do
begin
{Если найдется элемент, меньший MIN, то MIN будет равен этому элементу. Одновременно запоминаем индекс промежуточного минимума.}
if a[i]<=min then
begin
min:=a[i]; imin:=i;
end;
{Если найдется элемент, больший МАХ, то МАХ будет равен этому элементу. Одновременно запоминаем индекс промежуточного максимума.}
if a[i]>= max then
begin
max:=a[i]; imax:=i;
end;
end;
{Печатаем минимальный элемент и его индекс.}
writeln(min,' номер' , imin);
{Печатаем максимальный элемент и его индекс.}
writeln(max, ' номер' ,imax);
readkey;
end.