Программа!

[VaMpIR1111]

Определите, что делает следующая программа. Что
служит входными данными для программы и что выводит программа в зависимости
от входных данных.

Program Kr_4_z1; 
Var I, K, M, N : Word; A: Array[1..100] of Real; 
Begin 
ReadLn(N); 
Write  („введите заданное число  K  (меньше числа элементов в 
массиве): ‟); 
ReadLn (K); 
For I:=1 To N Do Read(A[i]); 
M:=K; I:=2*K; 
While I <= N Do Begin if A[I] < A[M] then M:=I; I:=I+K End; 
WriteLn(„Искомый элемент:‟, A[M]:12:6) 
End.

[Косюра]

Ыыыы)))
ReadLn (K); -входные данные
ReadLn(N); - входные данные
For I:=1 To N Do Read(A[i]); - входные данные
While I <= N Do Begin if A[I] < A[M] then M:=I; I:=I+K End; - то что делает программа
WriteLn(„Искомый элемент:‟, A[M]:12:6) - выводные данные

[VaMpIR1111]

Спасибо конечно, но.. мне не нужна строка, че она делает. Ты мне распиши че именно то..))))

[SL1M_DOGG]

Примерно так?
Входные данные:
ReadLn (K); - считывает данные в переменную К
ReadLn(N); - считывает данные в переменную N
For I:=1 To N Do Read(A[i]); - считывает данные в массив A

Выводится:
WriteLn(„Искомый элемент:‟, A[M]:12:6) - выводит данные M-го элемента массива А

[VaMpIR1111]

Да, только напиши в общем че она делает? И я тебе буду очень признателен

[Косюра]

While I <= N Do Begin if A[I] < A[M] then M:=I; I:=I+K End;

пока I <= N он делает в цикле:
begin
если a(i)< a(m) то M=I
I=i+1
end;