На рынке по продаже животных выставлены 10 лошадей. Запи шите стоимость каждой лошади. Составьте одномерный массив стоимости лошадей. Какие бы вы предложили задания для выпол нения с элементами данного массива? Составьте и представьте несколько задач по поиску в одномерном массиве.​

наименьшее 4-х разрядное число в системе счисления с основанием 5 = 1000₅.

наибольшее 4-х разрядное число в системе счисления с основанием 5 = 4444₅.

переведем эти числа в десятичную систему счисления:

1000₅= 5³ = 125

4444₅ = (10000₅ - 1₅) = 5⁴ - 1 = 624

количество всех 4-х разрядных чисел в системе счисления с основанием 5 равно: 624 - 125 + 1 = 500

ответ. 500. 

vara: array[1..500] of integer; i,k,n: integer; begink: =0; write('n= '); readln(n); for i: =1 to n do readln(a[i]); for i: =1 to n do k: =k+a[i]*a[i+1]; writeln(k); end.

  я тут немного отсебятины добавил, что бы программа не слетала если что-то нерпавильное вводиш))

vara: string; b: integer; beginwriteln ('введите строку'); read (a); if (a='город минск')then writeln ('город минск')elsebeginwriteln ('введите "город минск", 1-продолжить, 0-выйти'); read (b); end; while (b = 1) dobeginwriteln ('введіте строку'); read (a); if (a='город минск')then writeln ('город минск')elsebeginwriteln ('введите "город минск", 1-продолжить, 0-выйти'); read (b); end; end;

end. 

program ; var n : integer; begin    for n: = 10 to 99 do        if n mod 13 = 0 then writeln(n);     readln; end.