Question

Дан массив C размером 10, заполняемый с клавиатуры. Из элементов этого массива сформировать новый массив A по правилу: если номер элемента чётный, то A[I]=C[I] ^2, если нечётный, то A[I]=2* C[I]. паскаль​

Answer 1

Ответ:

var

i:integer;

c:array [1..15] of integer;

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

begin

for i:=1 to 15 do begin

c[i]:=Random (100);

end;

for i:=1 to 15 do begin

if (c[i] mod 2 = 0) then

a[i]:= c[i] div 2

else

a [i]:= c [i] *2;

end;

write ('Массив С: ');

for i:=1 to 15 do begin

write (c [i]);

write (' ');

end;

writeln (' ');

write ('Массив A: ');

for i:=1 to 15 do begin

write (a[i]);

write (' ');

end;

end.

Объяснение:

Answer 2

// PascalABC.NET 3.6

begin

 var c := ReadArrInteger('Вводи:', 10);

 var a := c.Select((v, i) -> i.IsEven ? 2 * v : v * v).ToArray;

 a.Print

end.

Answer 3

Для решения этой задачи вам понадобится использовать цикл, чтобы пройти по каждому элементу массива C, применить указанные правила и заполнить массив A.

Вот пример решения на языке Паскаль:

pascalCopy code
program Main;

const
  SIZE = 10;

var
  C, A: array[1..SIZE] of Integer;
  i: Integer;

begin
  // Ввод элементов массива C с клавиатуры
  for i := 1 to SIZE do
  begin
    Write('Введите элемент C[', i, ']: ');
    Readln(C[i]);
  end;

  // Формирование нового массива A
  for i := 1 to SIZE do
  begin
    if i mod 2 = 0 then
      A[i] := C[i] * C[i]  // Если номер элемента чётный, A[I] = C[I]^2
    else
      A[i] := 2 * C[i];    // Если номер элемента нечётный, A[I] = 2 * C[I]
  end;

  // Вывод элементов массива A
  for i := 1 to SIZE do
  begin
    WriteLn('A[', i, '] = ', A[i]);
  end;
end.

В этом примере мы используем два массива C и A размером 10. Сначала заполняем массив C с помощью оператора Readln, а затем в цикле проходим по каждому элементу C и, в зависимости от его номера, записываем соответствующее значение в массив A. Наконец, выводим элементы массива A с помощью оператора WriteLn.