Модератор: Модераторы
teapot писал(а):Paster Fob, мне тоже далеко за 20 и я в качестве хобби изучаю (вернее, пытаюсь вспомнить школьный курс) паскаль по книге уважаемого Олега. Хоть Вас давно не было на форуме, позвольте присоединиться.
Андрей131289 писал(а):как написать массив величины, вводимой с клавиатуры?
.....или правильно формулируем проблемку.Андрей131289 писал(а):Подскажите пожалуйста, как написать массив величины, вводимой с клавиатуры?
Код: Выделить всё
var
a:array of integer;
n:integer;
begin
readln(n);
setlength(a,n);
.....Код: Выделить всё
for i:=1 to n do
begin
k:=0;
for j:=i to n do
if a[i]=a[j] then inc(k);
if k=1 then writeln(a[i]);
end;
Код: Выделить всё
const CSize = ...; // размер массива
var
Numbers: array [0...CSize] of integer; // обрабатываемый массив
Counts: array [0...MaxInt] of integer; // массив счетчиков
i : integer;
begin
FillChar(Counts, SizeOf(Counts), 0); // очистка счетчиков
// накопление счетчиков (число в массиве - это индекс счетчика)
for i:=0 to CSize-1 do Inc( Counts[ Numbers[i] ] );
// Пробегаем по массиву Counts и выбраем те, что содержат единицу
for i:=0 to MaxInt do if Counts[i]=1 then Writeln(i);
end.
Андрей131289 писал(а):Подскажите пожалуйста, как написать массив величины, вводимой с клавиатуры?
