Напишите программу для создания массива а из десяти целых чисел, элементы которого вводятся с клавиатуры. в программе подсчитать k - количество элементов массива, значение которых превышает 12.

var

  a: array[0..9] of integer;

  k, i: integer;

begin

  k : = 0;

  for i : = 0 to 9 do  

  begin

    readln(a[i]);

    if a[i] > 12 then k += 1;

  end;

  writeln(k);

end.

алгоритм-это организованная последовательность действий.

свойства алгоритма: дискретность, , массовость, детерминированность, конечность.

алгоритм:

1)взять линейку

2)найти длинный всех сторон

3)сложить все три строны треугольника

4)записать ответ

(извиняюсь если алгоритм не правильно написан, с не дружу)

поскольку http: \\ftp. не бывает, то ftp: \\schools.ru\program.exe