Дан целочисленный массив из 40 элементов, которые могут принимать значения от 150 до 190 – рост учащихся выпускного класса.

var   i, x : integer;                         // объявляем переменные целочисленного типа.   arr : array [1..40] of integer; // объявляем массив.Begin    for i:= 1 to 40 do // начало цикла.     begin       arr[i] := random(150,190); // заполняем элемент массива с индексом i случайным числом.       if arr[i] >= 180 then          // если рост от 180 см.         begin           writeln(\'Номер кандидатуры: \', i, \' его рост: \',arr[i], \' см.\'); // вывод строки на экран.            x:= x + 1;                      // считаем количество претендентов.         end;     end;   writeln(\'Общее количество претендентов в команду: \', x); // вывод строки на экран.End.