Помогите с информатикой

[Slink]

Нужно решить задачку на экзамен, на завтра, помогите, пожалуйста, кто знает Фортран. Задачка естественно по Фортрану:

Составить программу вычисления и печати среднего значения элементов одномерного массива Х (100). Количество элементов N и значения Х вводятся.

[.flint]

Фортран не знаю (но, если мне память не изменяет, прямой предок Pascal), поэтому напишу на паскале. Синтаксис должен быть схож, поэтому если что -- переделай.

Код: [Выделить]

program average;

var
   n: word;    { количество элементов }
   x: array[0..1000] of integer;  { массив элементов }
   av: real;   { среднее значение }
   i: word;  { переменная главного цикла }

begin

repeat
   write("Input the elements count: ");
   readln(n);
   if (n>1000) then writeln("You stupid gorilla! You have to input natural numbers less than 1000 only!");
until (n>1000);  { так. вот на этом месте позабыл, когда у repeat..until выход? когда правда или когда ложь? Пусть будет когда ложь. }

for i:=1 to n do   { вводим всякую бяку }
begin
   write("Input ", i, " element of array: ");
   readln(x[i]);
   av := av + x[i];
end;

av := av / n;  { вычисляем среднее значение }

writeln("Average is ", av);

end.


Вот, собственно, и все. Может, ошибся в синтаксисе пары операторов, так как Паскаль уже давненько не видел. Если что, ориентируйся по комментариям.

[Zephyr]

.flint,
Хлоп, хлоп!!! Молодец!!! Я тобою горжусь!!!
if (n>1000) then
until (n>1000);  
Тока скобки лишние

[HardWareMan]

program average;

var
   n: word;    { количество элементов }
   x: array[1..1000] of integer;  { массив элементов }
   av: real;   { среднее значение }
   i: word;  { переменная главного цикла }

begin

repeat
   write("Input the elements count (must be less than 1000): ");
   readln(n);
   if (n>1000) then writeln("You wanna enter whole ",n," numbers? Can you do it? You don't? So, don't be stupid and enter new one but less than 1000");
until (n<1000);  {у repeat..until выход когда правда а не ложь.}

for i:=1 to n do   { вводим всякую бяку }
begin
   write("Input ", i, " element of array: ");
   readln(x);
   av := av + x;
end;

av := av / n;  { вычисляем среднее значение }

writeln("Average is ", av);

end.

Произвел работу над АшиПками.

[Zephyr]

Зачем скобки???

[.flint]

Тока скобки лишние

Спасибо Скобки идут от C уже на подсознательном уровне. Только сейчас заметил

[aUruM]

На самом деле, в данном случае абсолютно неважно, надо ставить скобки или нет, т.к. всего одно условие. Вот в случае с if (i<1000) or (if=1333) постановка скобок обязательна.