Задание:
Даны натуральное число n и последовательность целых чисел а 1, а 2, … аn. Из наибольшего элемента извлечь квадратный корень. Составить блок-схемуалгоритма, написать программу.
Решение:
program xxx; var i, n, max: integer; s: real; a: array [1… 20] of integer; begin write ('введите n='); readln (n); for i: =1 to n do readln (a[i]); max: =a[1]; for i: =1 to n do if a[i] > max then max: =a[i]; s: =sqrt (max); write ('корень из наибольшего эл-та=', s) end.
Знаете другой ответ?