Const
n=5;
type
MyArr=array[1..n] of integer;
var ar:MyArr;
i,maxi,val:integer;
k:real;
function Maxii(ar:MyArr):
integer;
var i,max:integer;
begin;
Max:=-2147483648;
for i:=1 to n do
if ar[i]>max then
begin;
max:=ar[i];
maxii:=i;
end;
end;
function Amp(ar:MyArr):integer;
var i,max,s:integer;
p:real;
begin;
Max:=-2147483648;
for i:=1 to n do
if ar[i]>max then max:=ar[i];
p:=max/100*10;
for i:=1 to n do
if ar[i]>=max-p then inc(s);
Amp:=s;
end;
begin;
for i:=1 to n do
begin;
readln(ar[i]);
k:=k+ar[i];
end;
k:=k/n;
writeln('Средний рост:',k);
maxi:=maxii(ar);
writeln('Самый высокий призывник:',maxi);
val:=Amp(ar);
writeln('4:',val);
<span>end.</span>
Var a,b,c:integer;
k:real;
BEGIN
write('Введите число пассажиров: ');
readln (a);
write('Введите число членов команды: ');
readln (b);
write('Введите число мест в спасательной шлюпке: ');
readln (c);
k := (a + b)/c;
if frac (k) <> 0 then k := int(k) + 1
else k := k;
writeln('Чтобы всех спасти необходимо ',k, ' шлюпок')
END.
дано: i=4
найти: N - ?
решение:
формула: N=2i => N=2×4, N=16
ответ: 16
<span>y;=sqr(x); вот тебе и ошибка. Там ;=, а надо двоеточие и равно
</span><span>y:=sqr(x);
</span>
Ещё счётчик цикла должен быть целочисленный. Var x: integer, а у тебя real
Program prim2;
Var y: real;
x:integer;
Begin
For x:=-10 to 10 do
Begin
y:=sqr(x);
Writeln(x, ' ', y)
end;
<span>End.
</span>
Я кстати вообще не знаю зачем для вычисления корня Вы взяли тип real.
