Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 20.05.2012, 21:29   #1
volkonskaya
Пользователь
 
Регистрация: 24.04.2012
Сообщений: 12
По умолчанию массив

ввести с клавиатуры элементы двух массивов,состоящих их 4-х элементов:А(4) и В(4).Построить массив С,элементы которого являются произведениями соответствующих элементов массивов А и В.
volkonskaya вне форума Ответить с цитированием
Старый 21.05.2012, 03:32   #2
123_
Пользователь
 
Регистрация: 10.04.2012
Сообщений: 12
По умолчанию

Код:
const
  n = 4;

var
  a: array [1 .. n] of integer;
  b: array [1 .. n] of integer;
  c: array [1 .. n] of integer;
  i: integer;

begin

  for i := 1 to n do
  begin
    write('Vvedite ', i, ' element massiva A:');
    readln(a[i]);
  end;
  for i := 1 to n do
  begin
    write('Vvedite ', i, ' element massiva B:');
    readln(b[i]);
  end;
  for i := 1 to n do
  begin
    c[i] := a[i] * b[i];
  end;
  for i := 1 to n do
    writeln('C[', i, '] = ', c[i]);
  readln;

end.
123_ вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
С# задан массив 5х5. сформировать массивы А и В. в массив А поместить элементы с четными индексами, в массив В с нечетны Koksa Помощь студентам 0 10.10.2011 11:26
Запись координат в массив в реал тайм, Как записать координаты в массив Dark19 Visual C++ 2 21.06.2011 18:45
Из массив А получить массив В, удвоив все нечётные элементы удвоены ( на Pascal) KARTER Помощь студентам 1 18.06.2011 19:58
Массив - Нужно написать массив и распечатать на экран с конца в начало(язык С++) econ Помощь студентам 1 29.05.2011 22:02