Задание:
Исправьте программу, она почему-то при выполнении не приходит к результату, то есть выполняется, но закончить выполнение не может. Ошибка где-то в циклекак я понимаю.
Решение:
Сильно запутано. Предлагаю свой более наглядный вариант решения плюс более красивый вывод массива var n, i, k, j: integer; a,b: array[1… 50] of integer; Found: boolean; BEGIN readln (n); for i: =1 to n do readln (a[i]); b[1]: =a[1]; k: =1; for i: =2 to n do begin Found=false; for j: =1 to k do if a[i]=b[j] then Found: =true; if not Found then begin k: =k+1; b[k]: =a[i]; end; end; writeln (k); for i: =1 to k do begin write (b[i]: 4); if i mod 10=0 then writeln; end; END.
Знаете другой ответ?