Доброго всем время суток!Помогите составить по блоку схем программу на цикл и массив.
Условие задачи есть в фотографии и блок схемы тоже на фотографиях.
(IMG:http://s005.radikal.ru/i212/1105/b7/b509cf4592fc.jpg)
(IMG:http://s15.radikal.ru/i189/1105/d0/8af5901b27ed.jpg)

1) Описались наверное: в условии x < xmax знак обратный.
2) С массивом все тоже самое. У вас в блок-схеме только отсутствует ввод элементов массива. Можно организовать ввод в отдельном цикле, после чего чего присвоить переменной xmax начальное значение. Или xmax задать граничное значение типа и осуществлять ввод и проверку элементов в одном цикле. приведу пример для первого варианта.
program с19;
var n,i,imax,x,xmax:integer;
a:array[1..100] of integer;
begin
writeln('Vvedite kol-vo uchastnikov ');
readln(n);
for i:=1 to n do
begin
writeln('Vvedite reziltat ', i);
readln(a[i]);
end;
xmax:=a[1];
imax:=1;
...