Исправьте программу, она почему-то при выполнении не приходит…

Question

Исправьте программу, она почему-то при выполнении не приходит к результату, то есть выполняется, но закончить выполнение не может. Ошибка где-то в циклекак я понимаю.

Answer 1

72

dyos25

20 марта 2023

Сильно запутано. Предлагаю свой более наглядный вариант решения плюс более красивый вывод массива 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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: