Написать программу (на pascal'e): 1)используя цикл for (для ввода чисел) вычислить сумму семи произвольных чисел, введённых с клавиатуры.

Program gt; var i: integer; s,a: real; begin writeln('задавайте 7 чисел каждый в новой строке'); for i: =1 to 7 do begin readln(a); s: =s+a; end; writeln(s); end.

Ну если разобрать так то в условии говорят что " двое учеников говорят правду наполовину, а один – лжет.". и хотел бы приметить что в своих ответах с и в указывали на к. это бы был бы как 1 из вариантов ответа, но есть 1 но, в своих ответах с и к говорили за себя, а в говорит за других. мне кажется что тем кто соврал  в  потому-что по логике учетелей каждый должен говорить за себя.и ещё кое-что мне кажется вопрос явно не по информатике тут скорее психология ( ведь спрашивают кто соврал)

Var   a: array [1..255] of integer;   n, i, j, k, min, max: integer; begin   //ввод количества элементов в массиве   write('введите четное количество элементов: ');   readln(n);     //ввод двух чисел для диапазона случайных чисел   write('введите диапазон случайных чисел: ');   readln(min, max);     //инициализация датчика случайных чисел.   //(в pascalabc.net необязательно)   randomize;     //заполнение массива   for i : = 1 to n do   begin       a[i] : = random(max-min+1)+min;       write(a[i]: 4);   end;   writeln;     //сортировка первой половины по убыванию   for i : = 1 to ((n div 2)-1) do       for j : = 1 to (n div 2)-i do           if a[j] > a[j+1] then           begin               k : = a[j];               a[j] : = a[j+1];               a[j+1] : = k;             end;               //сортировка второй половины по убыванию   for i: =(n div 2) to n-1 do       for j: =i+1 to n do           if a[i]< a[j] then           begin               k: =a[i];               a[i]: =a[j];               a[j]: =k;           end;   //вывод массива   for i : = 1 to n do write(a[i]: 4);   writeln;   readln; end.