Помогите с решение задачи! - Помощь студентам

VeseloffS · 08.06.2009, 00:23

Дана непустая последовательность различных натуральных чисел, за которой следует 0. Определить максимальное по абсолютному значению число в данной последовательности.

Вот то что у меня получилось, как сделать чтоб числа считывались из строки(Edit), а разделялись числа запятой. Например: 1,2,3,4,5,0

procedure TForm1.Button1Click(Sender: TObject);
const
size=5;
var
A:array[0..size] of integer;
i: integer;
max:integer;

begin

for i:=1 to size do
A[i]:=Strtoint(Stringgrid1.Cells[i-1,0]);
max:=1;
for i:=2 to size do
if abs(A[i])>abs(A[max]) then
max:=i;
label1.caption:='Максимальный элемент:'+inttostr(A[max])+#13+'Порядковый номер:'
+inttostr(max);
end;

Evgeniy26 · 08.06.2009, 00:30

http://www.programmersforum.ru/showthread.php?t=53087

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Решение задачи((	==Terman==	Microsoft Office Excel	7	10.05.2009 20:10
помогите закончить решение задачи.	gilex	Помощь студентам	1	28.12.2008 21:36
Решение задачи на C++	tools	Фриланс	8	19.12.2008 14:53
Решение задачи на c++	JOFRIF	Помощь студентам	2	21.04.2008 00:35
Решение задачи на Си	kisha	Общие вопросы C/C++	9	19.11.2007 23:31

08.06.2009, 00:23	#1
VeseloffS Пользователь Регистрация: 02.06.2009 Сообщений: 20	Помогите с решение задачи! Дана непустая последовательность различных натуральных чисел, за которой следует 0. Определить максимальное по абсолютному значению число в данной последовательности. Вот то что у меня получилось, как сделать чтоб числа считывались из строки(Edit), а разделялись числа запятой. Например: 1,2,3,4,5,0 procedure TForm1.Button1Click(Sender: TObject); const size=5; var A:array[0..size] of integer; i: integer; max:integer; begin for i:=1 to size do A[i]:=Strtoint(Stringgrid1.Cells[i-1,0]); max:=1; for i:=2 to size do if abs(A[i])>abs(A[max]) then max:=i; label1.caption:='Максимальный элемент:'+inttostr(A[max])+#13+'Порядковый номер:' +inttostr(max); end;

08.06.2009, 00:30	#2
Evgeniy26 Форумчанин Регистрация: 29.05.2009 Сообщений: 384	http://www.programmersforum.ru/showthread.php?t=53087