Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Delphi] Решение одномерного массива

Автор: KycTo 10.6.2008, 22:19

Из элементов массива A сформулировать массив в той же размерности по правилу:
Первые 10 элементов - B[ i ]=A[ i ] + i , остальные B[ i ]=A[ i ] - i

Автор: THandle 11.6.2008, 10:28

Так?

Код


program Project1;

{$APPTYPE CONSOLE}

const
  MAX = 20;

var
  a, b : array [1..MAX] of integer;
  i : integer;
begin
  randomize;
  for i := 1 to MAX do
    a[i] := random(100);

  for i := 1 to MAX do
    if i <= 10 then
      b[i] := a[i] + i
    else
      b[i] := a[i] - i;

  for i := 1 to MAX do
    WriteLn('a[', i, ']: ', a[i], '  b[', i, ']: ', b[i]);

  Readln;
end.