Var i,x,s:integer;
begin
writeln('Вводите стоимость товаров по одному');
while i<3 do
begin
readln(x);
if x>1000 then
begin
s:=s+x;
i:=i+1;
end;
end;
writeln('s=',s);
<span>end.</span>
some text some text some text some text some text some text some text some text some text some text some text some text some text some text some text some text some text some text some text
Var a:array[1..10] of integer;
i,count:integer;
begin
for i:=1 to 10 do begin
a[i]:=1+random(10);
write(a[i],' ');
end;
count:=0;
for i:=1 to 10 do begin
if a[i]=1 then
count:=count+1;
end;
writeln('Кол-во элементов равных единице=', count);
end.
Это колебание звуковых волн. Например. Речь человека, пение, т.е все естественные звуки. Человек способен воспринимать колебание звуковых волн от 20 Гц до 20 кгц