Struev730
?>

Первый и последний элементы массива замените противоположными по знаку. нужна программа на паскале.

Информатика

Ответы

vitbond12

program kek;

var

 a: array of Integer;

 i, n: Integer;

begin

 //читаем размер массива

 read(n);

 //устанавливаем длину массива a равной n

 SetLength(a, n);

  //циклом считываем элементы массива

 for i := 0 to n-1 do

 begin

   read(a[i]);

 end;

 //изменяем первый и последний элементы массива

 a[0] := -a[0];

 a[n-1] := -a[n-1];

 //выводим измененный массив

 for i := 0 to n-1 do

   write(a[i], ' ');

end.

versalmoda2971

===== PascalABC.NET =====

begin

 var n := ReadInteger('n =');

 var a := ArrRandom(n, -99, 99);

 a.Println;

 a[0] := -a[0];

 a[n - 1] := -a[n - 1];

 a.Println

end.


Первый и последний элементы массива замените противоположными по знаку. нужна программа на паскале.
Гаевая1290
Const
  MAX_SIZE = 10;
 
var
  a: array[1..MAX_SIZE] of integer;
  i, size: integer;
 
procedure delete_odd_elements();
var i, j: integer;
begin
  i := 1;
  repeat
    if odd(a[i]) then
    begin
      dec(size);
      for j := i to size do
        a[j] := a[j + 1]
    end
    else inc(i);
  until i > size;
end;
 
begin
  writeln('Исходный массив: ');
  size := MAX_SIZE;
  for i := 1 to size do
  begin
    a[i] := random(100);
    write(a[i] : 3);
  end;
  delete_odd_elements;
  writeln;
  writeln('Полученный массив: ');
  for i := 1 to size do
    write(a[i] : 3);
end.
leonidbaryshev19623

int n = Convert.ToInt32(Console.ReadLine())

Объяснение:

Это Ввод данных. Первые две задачи выполнены хорошо. Если хочешь вводить число n , то в вызове метода убери параметры и оставь свободным.

static void Main()

{

(10,45);

ShowSequenceOfOddNumbers(5);

CreateAndShowArray();    // Вот так

}

А чтоб вводить число добавь строку "Ввода данных"

int n = Convert.ToInt32(Console.ReadLine())

Например:

tatic void CreateAndShowArray()     // Пустой параметр

{

int n = Convert.ToInt32(Console.ReadLine())

long p = 1;

for (int i = 0; i < n; i++)

{

a[i] = new Random().Next(0, 100);

Console.Write(a[i] + " ");

p *= a[i];

}

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Первый и последний элементы массива замените противоположными по знаку. нужна программа на паскале.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

katar050419735
bg1967bg
euzdenova
Poroskun
bondarenkoss
Alex17841
samuilik-v
И.Д.1065
Mukhlaev-Olga
premiumoft
ekaterinasamoylova4705
TrubnikovKlimenok926
kmalahov
Isaeva_Marin1010
phiskill559