Помогите, пожалуйста, найти алгоритм программы! Мне срочно нужно найти алгоритм!...

Question

Помогите, пожалуйста, найти алгоритм программы!
Мне срочно нужно найти алгоритм!
Программа:
var
a:array[1..100] of integer;
ind:array[1..100] of Integer;
i,n:Integer;
c:integer;
begin
Randomize;
Writeln('n=');
Readln(n);
For i:=1 to n do begin
a[i]:=Random(6);
write(a[i]:4);
end;
writeln;
c:=0;
For i:=1 to n do
if a[i] mod 2 =0 then begin
c:=c+1;ind[c]:=a[i];end;
if c<>0 then begin
Writeln('4eTHbIe:');
For i:=1 to c do
write(ind[i]:5);end
else Writeln('4eTHbIx HeT');
Readln;
end.

Comments

Да, я не знаю, что такое "найти алгоритм", когда есть готовая программа. Алгоритм - это путь, способ решения проблемы. Когда программа написана, искать уже нечего. А если Вы имели в виду, что Вам нужно по тексту программы восстановить алгоритм, то это не называется "найти".

---

Прежде чем писать свои комментарии про "народ пошел", научитесь грамотно выражать свои мысли, чтобы курам смешно не было!

---

Только не надо учить меня, что в программировании как называется. Я программированием уже занимался, когда Ваши родители еще в детский сад ходили. Имейте ум, волю и достоинство признать, что напортачили с вопросом, а не извивайтесь, как червяк на крючке.

---

И в дополнение. Алгоритм можно описать разными способами. В частности, текст программы - это тоже описание алгоритма. И Паскаль изначально задумывался Н. Виртом, как средство для обучения, а также для публикации алгоритмов взамен языка ALGOL-60 (68).

---

Посему сама программа на Паскале - суть описание алгоритма.

Answer 1

"Найти алгоритм"?  Данная программа заполняет случайным образом массив чисел длинны n, после чего подсчитывает количество чётных элементов в нём и запоминает их позиции в массиве, после чего выводит результат: количество и позиции четных элементов