VPF::Сумма индексов - Форум программистов

Gl00M

Дата 11.10.2006, 16:24 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 15
Регистрация: 24.9.2006
Где: Коломна, МО

Репутация: нет
Всего: нет

В целочисл.массиве А от 1 до 22 вычислить сумму элементов с индексами,кратными 3
Делаю вот так:

Код


Program ms;
 uses Crt;
 const n=22;
 var a:array[1..n] of integer;
     i:word;
     s:integer;
Begin
 ClrScr;
 randomize;
 s:=0;
 For i:=1 to n do begin
  a[i]:=50-random(100);
  write(a[i]:4);
  if i div 3 then s:=s+a[i];
 end;
 writeln;
 writeln('Summa = ',s);
 readln;
End.

в if i div 3 then s:=s+a[i]; выдается ошибка...
как определить кратность? что не так сделал?

Snowy

Дата 11.10.2006, 16:42 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: нет
Всего: 484

Правильно

Код


  if i mod 3 = 0 then

Gl00M

Дата 11.10.2006, 18:45 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 15
Регистрация: 24.9.2006
Где: Коломна, МО

Репутация: нет
Всего: нет

А можно по-подробнее? он не считает сумму элементов...... smile

Yanis

Дата 11.10.2006, 19:06 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: нет
Всего: 111

Gl00M
Всё считает. Вот пример на delphi:

Код

Program ms;

{$apptype console}

const
  n = 22;

var
  a: array[1..n] of integer;
  i: word;
  s: integer;
Begin
 randomize;
 s:=0;
 For i:=1 to n do
  begin
    a[i] := 50 - random(100);
    writeln(a[i]);
    if (i mod 3 = 0) then s := s+a[i];
  end;

  writeln;
  writeln('Summa = ',s);
  readln;
End.

P. S. что бы работало на паскале, убери 3-ю строку.

--------------------

*щёлк*

Zero

Дата 14.10.2006, 19:44 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: нет
Всего: 24

Цитата(Gl00M @ 11.10.2006, 19:45

)

А можно по-подробнее? он не считает сумму элементов......

Всё он считает, ты обрати внимание на то что у тебя строка ввода чисел:

Код


a[i]:=50-random(100);

Имеет вероятность 50% присвоить отрицательное число, а сумма то, накапливается как из отрицательных, так и из положительных чисел, и в итоге получается иногда не высокое число, если заменишь её так:

Код


a[i]:=random(100);

То будет возможно как ты хочешь...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »