Если квадрат натурального числа не превосходит 225, то само это число не может превосходить √225 = 15. Алгоритм Заносим в переменную res (результат) число 0. Оно заведомо меньше любого из натуральных чисел в последовательности. Читаем очередное число в последовательности. Если оно больше res и при этом не превышает 15, записываем его в res. Если оно равно нулю, чтение прекращаем и выводим значение res.
var res,num:integer; begin res:=0; repeat Read(num); if (num>res) and (num<=15) then res:=num until num=0; Writeln(res) end.
Если квадрат натурального числа не превосходит 225, то само это число не может превосходить √225 = 15. Алгоритм Заносим в переменную res (результат) число 0. Оно заведомо меньше любого из натуральных чисел в последовательности. Читаем очередное число в последовательности. Если оно больше res и при этом не превышает 15, записываем его в res. Если оно равно нулю, чтение прекращаем и выводим значение res.
var res,num:integer; begin res:=0; repeat Read(num); if (num>res) and (num<=15) then res:=num until num=0; Writeln(res) end.
program zadacha;
var
a: array[1..1000] of integer;
i,n: integer;
begin
writeln('vvedite kol-vo elementov massiva');
readln(n);
for i:=1 to n do begin
a[i]:=random(1000)-500;
write(a[i]:7);
end;
writeln;
for i:=1 to n do begin
if i mod 2 =0 then a[i]:=sqr(a[i]);
end;
writeln;
for i:=1 to n do begin
write(a[i]:7);
end;
end.