Регистрация
ycidenis1
25.11.2020 06:38
Информатика
Есть ответ 👍

Пусть дан одномерный числовой массив, составленный из целых чисел. его можно получить либо вводом с клавиатуры командой input либо выбором из ячеек рабочего листа. количество элементов заранее неизвестно. сформировать из элементов заданного массива чисел новый той же размерности по правилу: xj = yj + j. нужно сделать в excel vba

193
476
Посмотреть ответы 2

Ответы на вопрос:

nazarpetrenko1
nazarpetrenko1
4,4(53 оценок)
Sub ex()       dim y() as integer, x() as integer       dim i as integer, n as integer       range(cells(1, 2), cells(100,       i = 1       do while len(cells(i, 1).value) < > 0               i = i + 1       loop       n = i - 1       redim y(1 to n), x(1 to n)       for i = 1 to n               y(i) = cells(i, 1).value               x(i) = y(i) + i               cells(i, 2).value = x(i)       next i end sub предполагается, что данные располагаются в колонке а, начиная с ячейки а1 в колонку b будет выведен результирующий массив. признак конца считывания - пустая ячейка в колонке а
лена6ада
лена6ада
4,8(36 оценок)

ответ:

объяснение:

на выбор - первая)

var

  n: integer;

  a: array[1..1000] of integer;  

  i: integer;

  sum: integer;

begin

  readln(n);

 

  for i: =1 to n do

    readln(a[i]);

 

  sum: =0;

  for i: =1 to n do

    if mod 2)< > 0) and ((a[i] mod 5) = 0)) then sum: =sum + a[i];

 

  writeln(sum);

 

end.

Популярно: Информатика