Delphi. Задачка по одномерным массивам.

[deni3x]

Здравствуйте.
Не знаю почему, но массивы мне никак не даются.
Можете помочь решить такую задачку. Буду использовать для примера.
Длинна массива 12
Тип элементов char
Найти индекс минимального элемента массива.
Заранее благодарен.

[Вавел из ГМТУ]

Выкладывайте свои наработки.

[deni3x]

const n=12;
var
a:array[1..n] of char;
i,nmin:integer;
min:real;
begin
for i:=1 to n do
a[i]:=StringGrid1.Cells[1-1,0][1];
min:=a[1];
nmin:=1;
for i:=2 to n do
if min>a[i] then
min:=a[i];
nmin:=i;
end;

[deni3x]

up
помогите пожалуйсто

[russian-stalker]

Может так:

...
for i:=2 to n do
if min>a[i] then
begin
min:=a[i];
nmin:=i;
end;
end;

[deni3x]

неа.
ошибку выдает в этой строке
a[i]:=StringGrid1.Cells[i-1,0];
как правильно записать StringGrid, если у меня нассив char?

[Вавел из ГМТУ]

Вобще тип Char предназначен для хранения простого символа.
Поэтому массив типа Char должен быть заполнен символами.

Что касается:

Найти индекс минимального элемента массива.

Я предполагаю, что "минимальный элемент" это числовое значение символа. Его можно получить заюзав функцию Ord(...)

ошибку выдает в этой строке
a[i]:=StringGrid1.Cells[i-1,0];
как правильно записать StringGrid, если у меня нассив char?

1. Какую ошибку?
2. ЧТо находиться в СтринГриде?

[deni3x]

Сообщение от Вавел из ГМТУ

Вобще тип Char предназначен для хранения простого символа.
Поэтому массив типа Char должен быть заполнен символами.

Что касается:



Я предполагаю, что "минимальный элемент" это числовое значение символа. Его можно получить заюзав функцию Ord(...)



1. Какую ошибку?
2. ЧТо находиться в СтринГриде?

подсвечивает строку min:=a[1]; и пишет
Incompatible types: 'Real' and 'Char'

[russian-stalker]

a:array[1..n] of char;
заменить на
a:array[1..n] of real;

значит

[Вавел из ГМТУ]

Сообщение от russian-stalker

a:array[1..n] of char;
заменить на
a:array[1..n] of real;

значит

У нас задание "Длинна массива 12. Тип элементов char"

min : unteger;