Помоигте с задачей на массив, массив Опции

[Juhn]

Помогите пожалуйста написать программу в паскале. Я с массивами вообще не знаком, а прогу написать нужно. Надеюсь кому - то не сложно будет написать. Очень надеюсь на вашу помощь.
Условие: Дан массив из 10 целых чисел. Найти сумму элементов данного массива.

[compiler]

псевдокод...

Код

сумма:=0
от первого элемента до последнего делай
сумма:=сумма + текущий элемент

upd
цикл лучше использовать for, имхо

Сообщение отредактировано: compiler - 22.01.2008 2:36

[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) надо обнулять до цикла.

Сообщение отредактировано: мисс_граффити - 22.01.2008 2:46

[compiler]

Что тут нитак ? Програмка не работает :/

а должна? во первых, массив должен быть описан как массив(а не целое число), а во вторых не плохо было бы инициализировать переменные...

[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]

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

а сколько хотел? хош не ноль, попроси пользователя сначала заполнить массив или заполни случайно(псевдо случайными числами))...

[Juhn]

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

[Rian]

Ответ выдаёт 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]

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

тебе, желательно для начала почитать литературу,
но ты же написал: rez:=0?
сделай тоже для элемента массива mas[1]:=5;

[мисс_граффити]

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

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

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

соответственно, надо:
1. заполнить массив
2. то, что у тебя уже написано...

[DJ-FOX]

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

!

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

Сообщение отредактировано: Michael_Rybak - 23.01.2008 19:43