Код:
Writeln('Введите целое число (N > 0) N=');
мусор
Удалите осталось от старой программы.
Цитата:
I. В одномерном массиве, состоящем из п вещественных элементов, вычислить:
1.Максимальный элемент массива.
2.Сжать массив, удалив из него все элементы, модуль которых находится в интервале [а, b]. Освободившиеся в конце массива элементы заполнить нулями.
|
Код:
var
j,i:integer;
N:integer;
Max:real;
a,b:real;
Mas: array [1..100] of real;
begin
writeln('Введите N ( N < 10)'); readln(N);
writeln('Введите a'); readln(a);
writeln('Введите b'); readln(b);
for i:=1 to N do
begin
write('Mas[',i,']=');
read(Mas[i]);
end;
writeln('Результат');
max:=Mas[1];
for i:=2 to N do
begin
if Mas[i]>Max then max:=Mas[i];
end;
j:=1;
for i:=1 to N do
begin
mas[j]:=mas[i];
if (Mas[i]>=a)and(mas[i]<=b) then dec(j);
inc(j);
end;
for i:=j to N do mas[i]:=0;
writeln;
for i:=1 to N do write(' ',mas[i]);
writeln;
writeln('Max=',Max);
end.