Дана последовательность целых чисел а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. но она не выдает нужной последовательности, а понять где ошибка у меня не получилось : (

244

246

Посмотреть ответы 2

Ответы на вопрос:

irina699

Информатика

4,6(96 оценок)

Извините, но смысла в работе вашей программы я не нашёл. я написал свой вариант, если не подходит - пишите. 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.