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

Программа.
var q,s:integer; 
begin
s:=1;
for q:=1 to 365 do
 s:=s+q;
Writeln(s);
end.

Описание программы.
var q,s:integer; // Объявление переменных, где q - цикл от 1 до 365, s - сумма результата.
begin // Начало выполнение программы.
s:=1; // Присваиваем переменной s значение 1, т.к. по условию 1 рубль.
for q:=1 to 365 do // Цикл от 1 до 365 
 s:=s+q; // Сумма цикла. То есть -  Сумма = Сумма + Цикл с шагом 1. Начальное значение s равно 1, поэтому сумма считывается больше суммы предыдущего дня.
Writeln(s); // Вывод результата.
end. // Конец выполнение программы.

По теореме косинусов находим косинус угла, лежащего против большей стороны и определяем вид треугольника.

var a, b, c, alpha: real;
begin
  write('Введите стороны: ');
  read(a, b, c);
  if a < b then swap(a, b);
  if a < c then swap(a, c);
  alpha := (b * b + c * c - a * a) / (2 * b * c);
  if a >= b + c then
    writeln('Треугольник нельзя построить')
  else if alpha = 0 then
    writeln('Треугольник прямоугольный')
  else if alpha > 0 then
    writeln('Треугольник остроугольный')
  else
    writeln('Треугольник тупоугольный')
end.