Question

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

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.