Вопрос для Илюхи:
Даны натуральное число 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.