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

Узнай цену своей работы

Формулировка задачи:

Дана последовательность из 10 чисел.Вывести на экран одной строкой числа в интревале от 3.5 до 4.0, предшествующих первому отрицательному в последовательности чисел. я нашел подобную задачу, но она не до конца удовлетворяет условию [
прога дожна выводить все числа (в интервале от 3.5 до 4) которые располагаются до отрицательного числа помогите плиз, что можно сделать?)
вот почти получилось)
но програма выдает только одно число следующее до отрицательного а нужно чтобы выводила все подскажите ктонить как это сделать?)

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

textual
Листинг программы
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.

Объяснение кода листинга программы

  1. В программе используется стандартная библиотека CRT (C Run-Time), позволяющая работать с консолью.
  2. Объявлен массив mas типа array[1..10] of real, который будет хранить 10 чисел.
  3. Также объявлена переменная i типа integer, которая будет использоваться в качестве счетчика для цикла.
  4. При помощи функции clrscr очищается экран перед выводом.
  5. Выводится сообщение ввод десяти чисел.
  6. Используя цикл for, программа считывает 10 чисел с помощью функции readln() и сохраняет их в массиве mas.
  7. После заполнения массива, цикл while начинается. Он будет выполняться до тех пор, пока значение элемента массива mas больше 0.
  8. Внутри цикла есть условие if, которое проверяет, находится ли текущее число в диапазоне от 3.5 до 4.0.
  9. Если число находится в указанном диапазоне, то оно выводится на экран с помощью функции write(). При этом числа выводятся в формате 5 знаков после запятой, а затем записывается пробел.
  10. После вывода числа, счетчик i увеличивается на 1.
  11. Цикл while продолжается до тех пор, пока не будет выполнено условие окончания цикла (массив mas полностью пройден).
  12. Программа завершается.

Оцени полезность:

10   голосов , оценка 3.9 из 5
Похожие ответы