Var
n,m,k,i,l,max,min:longint;
begin
max:=-maxlongint;
min:=maxlongint;
readln(n);
for i:=1 to n do
begin
readln(n);
if n>max then max:=n;
if n<min then min:=n;
end;
writeln('Самый высокий ',max);
writeln('Самый низкий ',min);
end.
Вам нужно подключить библиотеки iostream и cmath.
там, где у вас две строки #include, впишите в первую <iostream>
и во вторую <cmath>. Должно получиться так :
#include <iostream>
#include <cmath>
1.При первом выполнении тела цикла i=1
2. 9 раз
3. Цикл с предусловием
4. var n: integer;
for n:=1 to 26 do
writeln(sqr(n));
5. for i:=34 downto 3 do
writeln(i)
Chertovo ogranichenie na min kolvo simvolov
max(b2:d2)