У меня по практике задача.Сдавать через два-три дня.
Найти сумму элементов одномерного массива.Элементы вводятся с клавиатуры.
Пожалуйста,если кто-нибудь делал подобно,помогите.Буду очень и очень благодарен....

Program lam1;
var
mas:array[1..10] of real;
k:real;
i:integer;
begin
for i:= 1 to 10 do
begin
writeln('введите пжлста 'i'-й элмент массива');
readln(mas[i]);
k:=k+mas[i];
End;
for i:= 1 to 10 do
begin
writeln('массив');
readln(mas[i]);
end;
Writeln('сумма эл-тов = ',k:5:3);
Readln;
End.

Детский сад!
Вроде бы работает.

Абдул
ой а мы тоже в школе на базике делали...
и код похож ))))

а где GOTO 10 =)

в паскале нету 10 20 30 итд.
А так один хрен действительно

Спасибо тебе,друг..только вот тут вот ошибка

writeln('введите пжлста 'i'-й элмент массива');

Error 89: '>' expected

Я тут полный профан,хотя учусь в институте.Весь год мы проходили ексель да ворд,все!Паскаль сам сел изучать летом...с массивами проблема...

Абдул косяки там однако, надо бы вот так:


Program lam2;
var
mas:array[1..10] of real;
k:real;
i:integer;
begin

for i:= 1 to 10 do
begin
writeln('введите пжлста i-й элмент массива');
readln(mas[i]);
k:=k+mas[i];
i:=i+1;
End;

writeln;
writeln('массив');
for i:= 1 to 10 do
writeln(mas[i]);


Writeln('сумма эл-тов = ',k:5:3);
Readln;
End.

Да,все ок)Спасибо огромное товарищи

А вот так практичнее

Program Pr1;
Const n=10
var
mas:array[1..n] of integer;
k, i:integer;
begin

for i:= 1 to n do
begin
writeln('введите пжлста i-й элмент массива');
readln(mas[i]);
End;
k:=0
for i:= 1 to n do
k:=k+mas[i];

Writeln('сумма эл-тов = ',k);
End.



P.S. такие переменные как "k" желательно изначально обнулять.

Pomawka

Абдул
не думая. прога элементарная.
Ноль не по умолчанию. Бывают косяки.

Давайте господа пиписьками меряться.. возьмем у админов эталонную линейку и вперед!

Eternal Stranger
Ли нейку в аудиторию!

Нет, а GOTO 10 где????

И ещё... ВОЛК ЖУЕТ ТРАВУ.... ТРААААВУУУУУУ....


нет.. не айс =(

И вообще Ху Из он дьюти тудэй...

Ну вы нашли из-за чего такую дискуссию разводить, не, ну правда, если человек сам нифига не сичёт, надо выбирать самый понятный и рассусоленый способ без заморочек типа go to использовать низя...всё надо делать простейшими циклами...

нарисуйте, пожалуйста, блоксхему алгоритма!!

дед_мажор давай мы тебе лучше массив введем

А блок схему тогда сразу просечешь))

А массив это сколько?

Андреище
подозреваю, что 42 =)

Eternal Stranger
давай. по какому протоколу вводить будем? поднимем криптованный ethernet-туннель и инкапсулируем его туда? надо согласовать интерфейсы, вышли пожалуйста описание на IDL и свою схему данных в виде UML-диаграммы .

предлагаю массив хранить во внещней базе данных. из доступных - выберем Oracle.
сумму находить при помощи агрегирующих функций на стороне сервера

дед_мажор лучше через через далекий забугорный шелл затрояним пару тыщонок хостов, а потом при помощи етого ботнета будем ипать мосги бедным несчастным остудентам...

Пипец...я был о вас лучшего мнения...

для ооп: реализовать все на классах. Сложение - класс, наследованый от абстрактной n-aрной операции. очевидно, что сущность элемента массива скрывается шаблоном actor.

для xp: программировать вдвоем. учесть пожелание заказчика, и вместо сложения элементов массива, найти дисперсию распределния темной массы в галактике "Конская голова". для этого придется сделать рефакторинг.

для сети: каждый элемент массива хранится на отдельном компьютере. Все компьютеры связаны между собой по разным протоколам. Предусмотреть поддержку в том числе и floppyNet.

для вебмастера: оформить массив в красивую табличку, подобрать две-три фотографии по теме, прописать в meta keywords. создать тематический разел на сайте.

для ACM ICPC: найти сумму первых N парный простых чисел, n <= 10^1000. Заодно уточнить константу Бруна. Ограничение по времени: 1 сек на p2 300mhz.

а вообще домашнюю работу надо делать самому...