Дана последовательность целых чисел а1, а2, ..an. Образовать новую последовательность, выбросив из исходной те члены, которые равны min (а1, а2, ..an).Составила такую программу:Program NoName;const n=5;var mas:array [1..n] of i...
Дана последовательность целых чисел а1, а2, ..an. Образовать новую последовательность, выбросив из исходной те члены, которые равны min (а1, а2, ..an).
Составила такую программу:
Program NoName;
const n=5;
var mas:array [1..n] of integer;
masa:array [1..n] of integer;
i,min:integer;
Begin
writeln('Введите целые числа');
For i:=1 to n do
readln(mas[i]);
min:=mas[i];
For i:=1 to n do
If minmin then
begin
masa[i]:=mas[i];
end;
For i:=1 to n do writeln (masa[i]);
end.
Но она не выдает нужной последовательности, а понять где ошибка у меня не получилось :( Помогите пожалуйста
Гость
Ответ(ы) на вопрос:
ГостьИзвините, но смысла в работе Вашей программы я не нашёл.
Я написал свой вариант, если не подходит - пишите.
Program I_have_got_name;
const n = 5;
var mas:array[1..n] of integer;
i,min:integer;
begin
min:=maxint;
writeln('Введите целые числа');
for i := 1 to n do
begin
readln(mas[i]);
if mas[i]min then write(mas[i],' ');
end.
Не нашли ответ?
Похожие вопросы