Массивы

[Епгений]

всем привет народ!
прошу помощи в одном деле, вобшем есть одно задание в котором нужно подсчитать, сколько в нем различных чисел, количество должна выводить Edit1. это в Делфи.
вот код:
procedure TForm1.Button1Click(Sender: TObject);

Var I, N, K, Kol : Integer;
A : Array [1..50] Of Integer;
Lo : Array [1..50] Of Boolean;
Begin
Write(' '); ReadLn(N);
FOR I := 1 TO N DO
Begin
Write('A[', I, ']='); ReadLn (A[I]);
Lo[I] := True; {Заполняем вспомогательный массив значениями True}
End;
Kol := 0; {переменная, в которой будет храниться количество различных чисел}
FOR I := 1 TO N DO
IF Lo[I] THEN
Begin
Kol := Kol + 1;
FOR K := I TO N DO
Lo[K] := (A[K] <> A[I]) And Lo[K];
End;
WriteLn('Количество различных чисел: ', Kol);
edit1.Text:=inttostr(Kol);
end;
end.
в чем тут ошибка?
я давно не практиковался по этому малость забыл )
вот пытаюсь снова вникать в программировании

[dmitriegorovih]

в чем тут ошибка?

ошибка в вот этом

Write(' '); ReadLn(N);

нужно это убрать и в место этого добавить edit и с него брать нужные данные

[Епгений]

Сообщение от dmitriegorovih

нужно это убрать и в место этого добавить edit и с него брать нужные данные

Эээ я сам это с примеров слепил, запарился ) а как с edit брать данные.
эээ как то так шоль Edit1:=(''); ))) наверное бред какой та да.

[GetMax]

а как с edit брать данные.

 N:=StrToInt(Edit1.Text)

[Епгений]

эээ А вот ещё вопрос вот задание:
Даны два массива с 10-тью элементами. Найти наибольшее значение из двух массивов.
сделал я на Делфи, все вроде работает но правильно ли хэх я сомневаюсь.
код:
procedure TForm1.Button1Click(Sender: TObject);
var max,i:integer;
a:array[1..10] of integer;
b:array[1..10] of integer;
begin
{z:=a;
z:=b;}
for i:=1 to 10 do
max:=1;
for i:= 2 to 10 do
if a[i] > a[max] then max:=i; begin
if b[i] > b[max] then max:=i;
{z:=a[max];
z:=b[max];}
Form1.Edit1.text:=IntToStr(a[max]);
Form1.Edit1.text:=IntToStr(b[max]);
end; end;
end.

[Вадим Мошев]

Так вы проверьте. Ставите себя на место ПК, на котором исполняется эта программа, придумываете себе тестовые данные (в вашем случае, два массива, каждый их которых состоит из 10 элементов), выбираете максимальное число из них, после этого те же самые данные загоняете в написанную вами программу. Сравниваете. Делаете так несколько раз. Данные должны совпадать