Дана последовательность из 10 чисел.Вывести на экран одной строкой числа в интервале от 3.5 до 4.0

27.05.2010, 14:23. **Показов** 2029. **Ответов** 2

Author24 — интернет-сервис помощи студентам

Дана последовательность из 10 чисел.Вывести на экран одной строкой числа в интревале от 3.5 до 4.0, предшествующих первому отрицательному в последовательности чисел.

я нашел подобную задачу, но она не до конца удовлетворяет условию

[

PureBasic

program posledovatelnost;
 var
 i: integer;
 m: real;
 begin
  randomize;
  cls;
  for i:=1 to 10 do
   begin
    m:=random*3;
    if (m>=3.5) and (m<=4)
    then write(m:8:1);
   end;
  end.

прога дожна выводить все числа (в интервале от 3.5 до 4) которые располагаются до отрицательного числа

помогите плиз, что можно сделать?)

Добавлено через 18 часов 17 минут
вот почти получилось)

PureBasic

program mm;
//uses crt;
var mas:array[1..100] of integer;
i,n,k,ii:integer;
begin
cls;
for i:=1 to 10 do                     
begin                              
mas[i]:=random(100)-random(100);        
if mas[1]<0 then mas[1]:=random (100); 
write (mas[i],'  ');                   
end;
writeln;                  
k:=0;
for i:=1 to 10 do
begin
if (mas[i+1]<0) and (k=0) then
begin
writeln ('1:',mas[i]);
k:=k+1;
end;
end;
end.

но програма выдает только одно число следующее до отрицательного
а нужно чтобы выводила все

подскажите ктонить как это сделать?)

@NeoZ · 27.05.2010, 18:01

подскажите ктонибудь как это сделать?))

@Sapphir · 27.05.2010, 18:33

Pascal

uses crt;
var
 mas:array[1..10] of real;
 i:integer;
begin
 clrscr;
 writeln('ввод десяти чисел');
 for i:=1 to 10 do
  readln(mas[i]);
 i:=1;
 while mas[i] > 0 do
  begin
   if (mas[i] > 3.5) and (mas[i] < 4) then write(mas[i]:5:3, ' ');
   inc(i);
  end;
end.

@NeoZ 0 / 0 / 0 Регистрация: 23.05.2010 Сообщений: 3
	27.05.2010, 18:01	2
	подскажите ктонибудь как это сделать?)) 0

	27.05.2010, 18:33

Дана последовательность из 10 чисел.Вывести на экран одной строкой числа в интервале от 3.5 до 4.0

Решение