VPF::[pasca]сумма элементов - Форум программистов

THandle

Дата 16.9.2008, 14:37 (ссылка)

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

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

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

xF1x, *не выражения*

Код


program Project1;

const
  SIZE = 5;

var
  A: array [1..SIZE] of Integer;
  Summ: Integer;

procedure EnterArray;
var
  i: Integer;
begin
  Randomize;
  for i := 1 to SIZE do
    begin
      A[i] := Random(1000);
      Write('A[', i, '] = ', A[i]);
    end;
end;

procedure SummArray;
var
  i: Integer;
begin
  Summ := 0;
  for i := 1 to SIZE do
    Summ := Summ + A[i];
  WriteLn('Summ: ', Summ);
end;

procedure ResultArray;
var
  i, j: Integer;
  Ravno: Integer;
begin
  Ravno := 0;
  for i := 1 to SIZE do
    for j := i to SIZE do
      if i <> j then
        if A[i] = A[j] then
          begin
            WriteLn('A[', i, '] = ', A[i], ' and A[', j, '] = ', A[j], ' is equal');
            Ravno := Ravno + 1;
          end;
  if Ravno = 0 then
    WriteLn('Equal elements not found');
end;

begin
  EnterArray;
  SummArray;
  ResultArray;
  ReadLn;
end.

Оно?

xF1x

Дата 16.9.2008, 14:44 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 130
Регистрация: 18.3.2008

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

Все оно! СПАСИБО! тока забыл SIZE = 20 а не 5! уже пометил кк решенный!

THandle

Дата 16.9.2008, 14:46 (ссылка)

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

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

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

xF1x, а просто поменять цифирку низя? smile

Код



program Project1;
const
  SIZE = 20;
var
  A: array [1..SIZE] of Integer;
  Summ: Integer;
procedure EnterArray;
var
  i: Integer;
begin
  Randomize;
  for i := 1 to SIZE do
    begin
      A[i] := Random(1000);
      Write('A[', i, '] = ', A[i]);
    end;
end;
procedure SummArray;
var
  i: Integer;
begin
  Summ := 0;
  for i := 1 to SIZE do
    Summ := Summ + A[i];
  WriteLn('Summ: ', Summ);
end;
procedure ResultArray;
var
  i, j: Integer;
  Ravno: Integer;
begin
  Ravno := 0;
  for i := 1 to SIZE do
    for j := i to SIZE do
      if i <> j then
        if A[i] = A[j] then
          begin
            WriteLn('A[', i, '] = ', A[i], ' and A[', j, '] = ', A[j], ' is equal');
            Ravno := Ravno + 1;
          end;
  if Ravno = 0 then
    WriteLn('Equal elements not found');
end;
begin
  EnterArray;
  SummArray;
  ResultArray;
  ReadLn;
end.

Мне просто тестировать на более мелком размере удобнее было... А тему помечай как решенную, если эт так smile

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