[Pascal] Найти сумму элементов массива с четными нормерами

ZERO

Дата: Вторник, 18.03.2008, 16:23:08 | Сообщение # 1

Рядовой

Группа: Пользователи

Сообщений: 3

Репутация: 0

Статус: Не в сети

Ребят помогите задачку на Паскале решить, вот условие: Найти сумму элементов массива с четными нормерами. Размер массива 10. Случайные числа в диапазоне [0,99]. Вывод число. Заранее благодраен!

Brute

Дата: Вторник, 18.03.2008, 16:32:40 | Сообщение # 2

Генерал-полковник

Группа: Скриптеры

Сообщений: 1123

Репутация: 9

Статус: Не в сети

Переименовал тему: из Решение задачи в Найти сумму элементов массива с четными нормерами.

Обязательно помогу другу, как только узнаю как проверь на четность/нечетность.

max_rip

Дата: Вторник, 18.03.2008, 17:08:35 | Сообщение # 3

Подполковник

Группа: Пользователи

Сообщений: 147

Репутация: 0

Статус: Не в сети

Code

Begin
  For I := 0 To размерМасива Do begin
   if ((I mod 2) = 0) then suma:=масив[I]+suma;
  end;
End;

Добавлено (2008-03-18, 5:08 Pm)
---------------------------------------------
а еще мона тупо начать от 0 и в цикле прибавлять не 1, а 2 =)

Сообщение отредактировал max_rip - Вторник, 18.03.2008, 17:02:33

DaTa

Дата: Вторник, 18.03.2008, 17:11:34 | Сообщение # 4

Генерал-полковник

Группа: Cупер-модеры

Сообщений: 1025

Репутация: 16

Статус: Не в сети

Quote (ZERO)

Найти сумму элементов массива с четными нормерами.

я так понял номер- это индекс элемента массива:
var
a: array[1...10] of integer{real};
s: integer{real};
i:integer;{s,i: integer;}
begin
randomize;
for i:=1 to 10 do
a[i]:=random(99);
s:=0;
for i:= 1 to 5 do
s:=s+a[i*2];
for i:=1 to 10 do
writeln('a[',i,']=',a[i]);
end.

Сообщение отредактировал DaTa - Вторник, 18.03.2008, 17:12:36

ZERO

Дата: Вторник, 18.03.2008, 17:12:08 | Сообщение # 5

Рядовой

Группа: Пользователи

Сообщений: 3

Репутация: 0

Статус: Не в сети

Спасибо большое. Пробуем решать

max_rip

Дата: Вторник, 18.03.2008, 17:26:54 | Сообщение # 6

Подполковник

Группа: Пользователи

Сообщений: 147

Репутация: 0

Статус: Не в сети

да и не забываем что размерность массива начинается с 0, а при выводе на экран люди будут считать первый элемент 1, может сложится не до разумение))

Brute

Дата: Вторник, 18.03.2008, 17:38:20 | Сообщение # 7

Генерал-полковник

Группа: Скриптеры

Сообщений: 1123

Репутация: 9

Статус: Не в сети

Code

program Chetnoct;

const size=10;

var
A: array[1..size] of integer;
summa, i: integer;

begin
writeln('A[]=');

for i:=1 to size do
readln(A[i]);

for i:=1 to size do
if((i mod 2)=0)
then summa:=summa+A[i];

writeln('summa=', summa);
readln;
end.

Вот программа, которую надо было ZERO.

Благодарю всех за ответы! Даже и не думал, что будет столько ответов.

ниже исходничок, если не получится скопи-пастить.

Прикрепления: BRUTE3.pas (0.3 Kb)

Brute

Дата: Вторник, 18.03.2008, 17:43:56 | Сообщение # 8

Генерал-полковник

Группа: Скриптеры

Сообщений: 1123

Репутация: 9

Статус: Не в сети

а нет не всё=)
надо-же было различные числа-сейчас поправлю=)

Brute

Дата: Вторник, 18.03.2008, 18:01:14 | Сообщение # 9

Генерал-полковник

Группа: Скриптеры

Сообщений: 1123

Репутация: 9

Статус: Не в сети

Code

program Chetnoct;

const size=10;

var
A: array[1..size] of integer;
summa, i: integer;

begin
writeln('A[]=');
randomize;

for i:=1 to size do
A[i]:=random(99);

for i:=1 to size do
writeln(A[i]);

for i:=1 to size do
if((i mod 2)=0)
then summa:=summa+A[i];

writeln('summa=', summa);
readln;
end.

я немного своего добавил: вывод этих самых различных чисел, если не надо удали:

Code

writeln('A[]=');

Code

for i:=1 to size do
writeln(A[i]);

Если бы не ребята, я бы полгода искал, как сделать эти "чётность" и "случайность". Ещё раз спс. blush