Дана последовательность целых чисел а1, а2, ..an. - вопрос №230005712 от ЧайСПеченькой08 23.01.2023 07:04

Question

Информатика: Дана последовательность целых чисел а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. но она не выдает нужной

ЧайСПеченькой08 · Answer

Извините, но смысла в работе Вашей программы я не нашёл.
Я написал свой вариант, если не подходит - пишите.

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 min:=mas[i];
end;
For i:= 1 to 5 do
If mas[i]<>min then write(mas[i],' ');
end.