Скрыть опции темы

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

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

А зачем их обнулять, ведь ноль по умолчанию? И ты говоришь о практичности...
По моему, константы - это лишние нагромождения. И потом, написано за 2 минуты не думая особо. Давно я такой ерундою не занимался...

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

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

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

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

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


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

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

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

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

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

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

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

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

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

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

несерьезненько!

IBM DB2 или CACHÉ