Получите новый массив, каждый элемент которого в i раз больше соответствующего элемента первого массива

@Pudge1488 · Регистрация: 13.01.2017

Author24 — интернет-сервис помощи студентам

2.Сформируйте массив, содержащий n элементов, с помощью чисел, введенных с клавиатуры. Получите новый массив, каждый элемент которого в i раз больше соответствующего элемента первого массива, где i – индекс элемента. Выведите на экран исходные и полученные результаты.

@Alexandr212 · 01.03.2017, 16:03

Pascal

type
  mas = array [1..100] of integer;
 
var
  a, b: mas;
  i, n: integer;
 
begin
  randomize;
  writeln('введите размер массива');
  readln(n);
  for i := 1 to n
    do read(A[i]);
  writeln;
  for i := 1 to n
    do 
    write(A[i], ' ');
  writeln;
  writeln('получившийся массив');
  for i := 1 to n
  do 
  begin
    B[i] := A[i] * i;
    write(B[i], ' ');
  end;
end.

@ZX Spectrum-128 · 14.03.2017, 19:10

Pascal

const
  n_max = 100;
 
type
  vector = array [1..n_max] of integer;
 
var
  n, i: integer;
  x, y: vector;
 
begin
  readln(n);
  for i := 1 to n do 
    readln(x[i]);
  for i := 1 to n do     
    write(x[i]:5);
  writeln;
  for i := 1 to n do 
  begin
    y[i] := x[i] * i;
    write(y[i]:5);
  end;  
end.

@Pudge1488 0 / 0 / 1 Регистрация: 13.01.2017 Сообщений: 31
		1
	Получите новый массив, каждый элемент которого в i раз больше соответствующего элемента первого массива 01.03.2017, 13:53. Показов 2040. Ответов 2 Метки нет (Все метки) 2.Сформируйте массив, содержащий n элементов, с помощью чисел, введенных с клавиатуры. Получите новый массив, каждый элемент которого в i раз больше соответствующего элемента первого массива, где i – индекс элемента. Выведите на экран исходные и полученные результаты. 0

	14.03.2017, 19:10

Получите новый массив, каждый элемент которого в i раз больше соответствующего элемента первого массива

Решение