Одномерный массив

[AdmmirAl]

Помогите доделать задачу: есть 6 чисел (любых), надо с помощью одномерного массива найти их сумму. Вот что у меня получилось:

 var a:array[1..100] of integer; 
    s:longint; 
    i:integer; 
begin 
     writeln('введите 6 элементов массива'); 
     s:=0; 
     for i:=1 to 6 do begin 
        readln( a[i] ); 
        s:=s+a[i]; 
     end; 
     writeln( 'Сумма элементов = ', s ); 
     readln; 
end.

Проблема в том, что Паскаль считает цифры которые написаны в столбец. А как сделать чтобы он считал цифры, которые написаны в строчку? Препод говорит что у меня где то лишний readln есть.

Блин, блок схема говорит тоже с ошибкой:

начало

s:=0;

i,1,6,1

s:=s+a[i]; - дальше я стрелку к пред. пункту поставил

конец
Говорит что блока(ов) не хватает.

[TinMan]

Хм.. Интресно - что у тебя за Паскаль, который такое компилирует?..

[AdmmirAl]

А что не так? Я сейчас добавил uses crt; и clrscr, вроде считает но только цифры, написанные в столбик.

[Dush]

1. если у вас заранее известно, что массив состоит из 6 чисел то зачем объявлять его на 100?

а : array[1..6] of integer;

2. если вы считываете числа в массив то надо использовать обращение к определенному элементу по его индексу.

for i:=1 to 6 do
begin
  readln(a[i]);
  s:=s+a[i];
end;

3. зачем вы в конце программы перезаписываете значение s? паскаль будет ждать от вас ввода числа и если вы введете букву то выскочит ошибка. поставте просто

readln;

4. в цикле замените readln на read

[AdmmirAl]

Насчет индекса я написал сюда не правильно. В остальном спасибо, подправил. Так как сделать чтоб он считал цифры, написанные в строчку?

[Dush]

смотрите пункт 4.
цифры вводите через пробел, после ввода всех чисел -> Enter

[maxwallaby]

Dush всё правильно говорит, так просто надо поменять строчку. Вот то, что в принципе должно получится:

program a1;
uses crt;
var a:array[1..6] of integer; 
    s:longint; 
    i:integer; 
begin 
     writeln('Please, write 6 symbols:'); 
     s:=0; 
     for i:=1 to 6 do begin 
        read(a[i]);
        s:=s+a[i]; 
     end; 
     writeln( 'Sum of symbols = ', s );   
readkey
end.

[JUDAS]

program Project1;
var
  a : array[1..6] of integer;
  S : integer;
begin
 writeln('Please, write 6 symbols:'); 
 read(a[1],a[2],a[3],a[4],a[5],a[6]);
 S:=a[1]+a[2]+a[3]+a[4]+a[5]+a[6];
 writeln(S);
 readln;
end.

[maxwallaby]

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

 
 read(a[1],a[2],a[3],a[4],a[5],a[6]);
 S:=a[1]+a[2]+a[3]+a[4]+a[5]+a[6];

Никогда не пишите так!!! А если будет сумма не 6-ти а 86 чисел, тоже в строчку будете перечислять?
Что это за культура кода? Не советуйте неправильно, пожалуйста!