Организация ветвления

[Ann2807]

Здравствуйте. Помогите, пожалуйста, написать программы к задачам на паскале

1.Составьте программу, вычисляющую сумму квадратов всех чисел от 1 до N.
2.В ПК вводятся по очереди данные о росте N учащихся класса. Определить средний рост учащихся в классе.
3. Организации города были привлечены к мероприятию по озеленению территории пустыря. Сколько организаций участвовало в этом мероприятии, а также, сколько в среднем посадила деревьев каждая организация, если было рассчитано, что на территории пустыря можно посадить не более 1000 деревьев.

[Sciv]

1 программа

var i,n: integer;
    s,a: real;
label l1;
begin
  s:=0;
l1:
  Write('Введите количество элементов: ');
  ReadLn(n);
  if n<=0 then begin
    WriteLn('Ошибка ввода!');
    Goto l1;
  end;
  For i:=1 to n do begin
    Write('Введите элемент №',i,': ');
    ReadLn(a);
    s:=s+a*a;
  end;
  WriteLn('Сумма квадратов: ',s:3;2);
  ReadLn;
end.

Пришлось придумывать, куда тут сунуть ветвление

[Sciv]

var i,n: integer;
    s,a: real;
label l1;
begin
  s:=0;
l1:
  Write('Введите количество учащихся: ');
  ReadLn(n);
  if n<=0 then begin
    WriteLn('Ошибка ввода!');
    Goto l1;
  end;
  For i:=1 to n do begin
    Write('Введите рост учащегося №',i,': ');
    ReadLn(a);
    s:=s+a;
  end;
  s:=s/n;
  WriteLn('Средний рост: ',s:3;2);
  ReadLn;
end.

Та же история. У Вас точно задачи на ветвление, а не на циклы?

А последняя задача либо неполная, либо неверно пересказана, либо бред какой-то. Так как организаций может быть от 1 до 1000 (даже больше, но будем считать, что минимум на одну организацию приходится одно дерево). Что, все варианты считать?

В принципе, примеры я Вам дал, удосужьтесь как-нибудь разобраться и сделайте сами

[Ann2807]

Спасибо. Да, тут циклы. Ошибочка вышла