блок схема

[masterlomaster]

Кому не сложно переведите на "человеческий" язык эту блок-схему.
Спасибо!

[Mad_Cat]

var i,k,n:integer;
m:array[1..100] of integer;
begin
readln(n);
i:=1;
repeat
readln(m[i]);
inc(i);
until i>n;
k:=0;
i:=1;
repeat
if m[i]<0 then begin inc(k);writeln(i);end;
until i>n;
writeln('k=',k);
end.

устраивает7

[masterlomaster]

да устраевает, но не в полне, можно ли еше добавить сюда коментарии на против проги. Спасибо!
PS
ишу репетитора по программированию г. Челябинск

[DIgorevich]

var
  i,k,n:integer;{объявляем переменные целочисленного типа}
  m:array[1..100] of integer; {объявляем массив переменных целочисленного типа}
begin
  readln(n);{считываем значение введенное с клавиатуры и присваиваем его переменной "n"}
  i:=1; {присваиваем переменной i значение 1}
  repeat {повторяем}
    readln(m[i]); {вводим значение с клавиатуры в i-тый элемент массива}
    inc(i);{увеличиваем на единицу значение i}
  until {до тех пор пока}
    i>n; {i не станет больше n}
  k:=0;{присваиваем переменной k значение 0}
  i:=1;{присваиваем переменной i значение 1}
  repeat {повторяем}
    if m[i]<0 then {если значение элемента массива под номером i больше 0 тогда}
      begin
        inc(k); {увеличиваем на единицу значение k}
        writeln(i); {выводим на экран значение переменной i}
      end;
  until {до тех пор пока}
    i>n; {i не станет больше n}
  writeln('k=',k);{выводим на экран значение переменной k}
end.

Так сойдет?

[rrrFer]

да устраевает

как все рады что угодили вам

но не в полне

уже кинулись исправлять
начните с русского языка

[masterlomaster]

спасибо что уделил мне внимания

[Cannibal]

Потерял одну строчку - программа зацикливается

Сообщение от DIgorevich

var
  i,k,n:integer;{объявляем переменные целочисленного типа}
  m:array[1..100] of integer; {объявляем массив переменных целочисленного типа}
begin
  readln(n);{считываем значение введенное с клавиатуры и присваиваем его переменной "n"}
  i:=1; {присваиваем переменной i значение 1}
  repeat {повторяем}
    readln(m[i]); {вводим значение с клавиатуры в i-тый элемент массива}
    inc(i);{увеличиваем на единицу значение i}
  until {до тех пор пока}
    i>n; {i не станет больше n}
  k:=0;{присваиваем переменной k значение 0}
  i:=1;{присваиваем переменной i значение 1}
  repeat {повторяем}
    if m[i]<0 then {если значение элемента массива под номером i больше 0 тогда}
      begin
        inc(k); {увеличиваем на единицу значение k}
        writeln(i); {выводим на экран значение переменной i}
      end;
  inc(i);{Увеличиваем счетчик элементов массива на 1}
  until {до тех пор пока}
    i>n; {i не станет больше n}
  writeln('k=',k);{выводим на экран значение переменной k}
end.

Так сойдет?