Massiv, Minimalnij element Опции

[Sam]

Vsem privet! Zada4a takova:
Najti v massive element s minimaljnim pozitivnim zna4eniem i jego indeks. Analizirovatj toljko elementi s neparnim indeksom!

u menja 4to-to ne idjot...

program massiv;
var
	i,num : integer;
	min : real;
         ms : array[1..6] of real;
begin
writeln ('Vvedite znachenie elementov: ');
	for i := 1 to 6 do begin
             readln(ms[i]);
             i := i+1;
         end;	
	min := ms[1];
	for i := 2 to 6 do begin
		if (ms[i] > 0) then begin
			if (ms[i] < min) then begin
				min := ms[i];
				num := i;
			end;
		end;
	end;
	writeln(min:2:2);
	writeln(num);
    readln;
end.

I jesho vapros, kak sdelatj 4tobi koli4estvo elementov v massive vvodilosj s klaviaturi v samom na4ale programmi ??

Thxx...

[Sofo4ka]

а заполнять массив случайными чисоами?

[Lapp]

а заполнять массив случайными чисоами?

Sofo4ka, что ты хотела сказать? Пожалуйста, высказывайся подробнее, не заставляй других ломать голову над смыслом твой криптограммы. Прочти свое предложение, делая ударение на разные слова, и ты сама увидишь, что смысл неоднозначен. Обрати внимание на то, как пишут отвечающие (особенно лучшие из них). Ты думаешь, у них просто времени больше? Нет, они просто хотят, чтобы их поняли.
Краткость не всегда сестра таланта.

Если ты хотела спросить "а как заполнять массив случайными чисоами?", то так и спроси. Только не в этой теме...