<span>mas = []
while True<span>:
</span>----x = int(input("X= "))
</span>----<span>mas.append(x)
</span>----<span>if x == 0<span>:
</span></span>--------<span>break
</span><span>a = max(mas)
print("Max",a)
mas.remove(a)
b = max(mas)
print("Max",b)
print("произведение: ",a*b)</span>
Var
a : array [1..16] of integer;
i, c : integer;
begin
randomize;
for i := 1 to 16 do
a[i] := random (41) - 20;
c := 0;
for i := 1 to 16 do
if a[i] < 0 then c := c + 1;
writeln (c);
end.
var i,A,n,sum,v:integer;beginwrite('Введите заданное А'); readln(A);write('Введите число вводов n'); readln(n);for i:= 1 to n dobeginwrite('Введите число'); readln(v);if v > A then sum:= sum +v;end;write('Сумма = ', sum);<span>end.</span>
Пппппарпрарараврарарарары
Var
Ch,Z:real;
i:integer;
Begin
Ch:=0;
For i:= 1 to 100 do
if i mod 7 = 0 then Ch:=Ch+i;
Z:=0;
For i:= 100 to 500 do
if i mod 17 = 0 then Z:=Z+i;
WriteLn(Ch,'/',Z,' = ',Ch/Z);
End.
Результат работы программы:
735/7140 = 0.102941176470588