У=2√х+3х-16
z=√(x-2)/|5y|
a=(2x+6)/(3y+1)
y=2x+6zf/8-4
z=3-5y/(8f)-4
Var rost :array[1..100] of integer;
n, i, k: integer;
begin
writeln('Введите общее количество участников');
readln(n);
for i:=1 to n do
read(rost[i]);
for i:=1 to n do
if (rost[i] >=180) then Inc(k);
writeln(k);
<span>end.
Пример входных данных
3
179 180 194<span>
Выходные данные
2</span></span>
var i,min:integer;
a:array[1..10] of integer;
begin
randomize;
for i:=1 to 10 do begin
a[i]:=random(45)-22;
write(a[i],' ');
end;
writeln;
for i:=1 to 10 do begin
if a[i]<0 then min:= min+1;
end;
writeln('Количество отрицательных элементов:',min);
end.
S = 2
n=2 n=3 n=4 n=5 (for n:=2 to 5 do)
s = s + n*2
s = 2 + 2*2 = 6
s = 6 + 3*2 = 12
s = 12 + 4*2 = 20
s = 20 + 5*2 = 30
s = 30