Есть ответ 👍

4. массив а размером 10 заполняется по формуле i-4, где i- счётчик индексов. поменять местами второй и предпоследний элементы массива. ( в паскале)

300
500
Посмотреть ответы 3

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

s0nnka
4,4(19 оценок)

Var       a: array[1..10] of integer;       i: integer; begin       for i: =1 to 10 do           a[i] : = i-4;       a[2] : = a[9] + a[2];       a[9] : = a[2] - a[9];       a[2] : = a[2] - a[9];       for i: =1 to 10 do           write(a[i], ' '); end.

// pascalabc.net 3.2, сборка 1379 от 21.01.2017 // внимание! если программа не работает, обновите версию! begin   var a: =arrgen(10,i-> i-4,1); a.println;   swap(a[1],a[8]); a.println end. результаты -3 -2 -1 0 1 2 3 4 5 6 -3 5 -1 0 1 2 3 4 -2 6

Pascalabc.net 3.4.2, сборка 1861 от 09.11.2018 внимание! если программа не работает, обновите версию!

begin

  seqgen(readinteger('n='), i -> sqr(2 * i), 1).sum.println

end.

пример n= 121 2391444

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