Помощь - Поиск - Пользователи - Календарь
Полная версия: Помоигте с задачей на массив
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Juhn
Помогите пожалуйста написать программу в паскале. Я с массивами вообще не знаком, а прогу написать нужно. Надеюсь кому - то не сложно будет написать. Очень надеюсь на вашу помощь.
Условие: Дан массив из 10 целых чисел. Найти сумму элементов данного массива.
compiler
псевдокод...
Код
сумма:=0
от первого элемента до последнего делай
сумма:=сумма + текущий элемент


upd
цикл лучше использовать for, имхо
Juhn
program masiv;
var
i, rez, mas:integer;
begin
For i:= 1 To 10 Do
rez:= rez + mas[i];
Writeln(rez);
readln;
end.

mas-имя, rez-результат.

Что тут нитак ? Програмка не работает :/
мисс_граффити
0. mas описано как целое число, а не как массив
надо
mas: array[1..10] of integer;

1. Что в массиве? Неизвестно.... Хорошо бы туда что-нибудь записать.
2. Сумму (rez) надо обнулять до цикла.
compiler
Цитата(Juhn @ 21.01.2008 21:41) *
Что тут нитак ? Програмка не работает :/
а должна? во первых, массив должен быть описан как массив(а не целое число), а во вторых не плохо было бы инициализировать переменные...
Juhn
program masiv;
var mas : array [1..10] of integer;
i, rez : integer;
begin
rez := 0;
For i:= 1 To 10 Do
rez:= rez + mas[i];
Writeln(rez);
readln;
end.

Ответ выдаёт 0, видать всё - равно что - то нитак. :/
compiler
Цитата(Juhn @ 21.01.2008 22:00) *
Ответ выдаёт 0, видать всё - равно что - то нитак. :/
а сколько хотел? smile.gif хош не ноль, попроси пользователя сначала заполнить массив или заполни случайно(псевдо случайными числами))...
Juhn
Тоесть ответ правильный ? Я просто не вьезжаю что такое массив, какая - то последовательность чисел, и какой ответ должен быть тоже не знаю, ну ладно smile.gif
Rian
Цитата(Juhn @ 21.01.2008 22:00) *

Ответ выдаёт 0, видать всё - равно что - то нитак. :/

тебе ж сказали, заполнить массив попробуй

Цитата

1. Что в массиве? Неизвестно.... Хорошо бы туда что-нибудь записать.

Juhn
Ребята я с трудом понимаю что такое массив, а как его заполнить это уже действия ещё более сложные :D
compiler
посмотри эту программу, может станет яснее...
var
mas : array [1..10] of integer;
i, rez : integer;
begin
(*randomize;
For i:= 1 To 10 Do begin
mas[i]:=random(10);
end;*)

For i:= 1 To 10 Do begin
write('Enter element number', i, '> '); read(mas[i]);
end;

write('array:');
For i:= 1 To 10 Do begin
write(mas[i]:4);
end;
writeln;

rez := 0;
For i:= 1 To 10 Do
rez:= rez + mas[i];
Writeln(rez);
end.

Rian
Цитата(Juhn @ 21.01.2008 22:11) *

Ребята я с трудом понимаю что такое массив, а как его заполнить это уже действия ещё более сложные :D

тебе, желательно для начала почитать литературу,
но ты же написал: rez:=0?
сделай тоже для элемента массива mas[1]:=5;
мисс_граффити
Цитата(Juhn @ 21.01.2008 23:11) *

Тоесть ответ правильный ? Я просто не вьезжаю что такое массив, какая - то последовательность чисел, и какой ответ должен быть тоже не знаю, ну ладно

ну да, по сути одномерный массив - последовательность... элементы в которой пронумерованы.

например, mas - массив. mas[1] - первый элемент, mas[2] - второй элемент...

соответственно, надо:
1. заполнить массив
2. то, что у тебя уже написано...
DJ-FOX
Уважаемые форумчане,помогите чем можете,до меня не допирает...мне нужна прога которая формирует матрицу случайными числами,выводит её на экран,находит сумму главной диагонали и второстепенной диагонали,ищет номер минимального размера массива.

 ! 
Не задавай свои вопросы в чужих темах

Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.