Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
1. плывут два ребенка
2. один ребенок возвращается
3. плывет взрослый на др. берег
4. возвращается второй ребенок
5. плывут два ребенка на др. берег
6. один ребенок возвращается
7. плывет взрослый на др. берег
8. возвращается второй ребенок
9. плывут два ребенка на др. берег
writeln('a[',i,']=',a[i]);
readln;
end.
напишите цель . то что у вас написано - полный бред. который после устранения синтаксических ошибок(а их тут не одна) работать не будет
const
n=10;
var
a: array[1..n] of integer;
i,x,k,j,s: integer;
begin
randomize:
for i: =1 to n do a[i]: =random(255); {формируем случайный массив}
for i: =1 to n do write(a[i],' '); {выводим этот массив его на экран}
writeln('x='); read(x); {вводим x, в программе}
for i: =1 to n do if x=a[i] {если х=a[i] тогда}
then for j: =i to n do {начинаем новый цикл с i до n}
s: =s+a[j]; {вычисляем сумму}
writeln(s);
end;
Популярные вопросы