Заменить все элементы,попадающий в интервал[a,b] нулем. Паскаль. Составьте код работающей...

Question

Заменить все элементы,попадающий в интервал[a,b] нулем. Паскаль. Составьте код работающей программы ПОЖАЛУЙСТА

Comments

можно полное условие задачи?

---

это как я понимаю и есть полное условие

---

плохая у Вас задача. массив рандомный,

---

или с клавиатуры?

---

а и б с клавиатуры?

---

Дана последовательность целых чисел.
Задачи из данного пункта решить, используя одномерный массив. Размерность массива вводится с клавиатуры.

---

ууу, где Лана последовательность этих чисел? если есть такая возможность, попроси препода объяснить, откуда мы берём массив и откуда мы берём а и б.

---

я могу сделать массив рандомным, а и ь с клавиатуры, если препод что-нибудь предъявит, рекомендую натыкать его лицом в это задание, ничего более определенного не видела.

---

сделайте так, пожалуйста))

Answer 1

Ответ:

program hrn;

var a, b,i, k:integer;

mas: array [1..1000] of integer;

begin

writeln('Введите размерность массива');

readln(k);

for i:=1 to k do begin

mas[i]:= random(145);

write(mas[i], ' ');

end;

writeln;

writeln('Введите нижнюю границу обнуления массива');

readln(a);

writeln('Введите верхнюю границу обнуления массива');

readln (b);

for i:=a to b do mas[i]:=0;

for i:=1 to k do write(mas[i], ' ');

readln;

end.

Comments

Спасибо огромное!