Информатика
Информатика, 14.10.2019 08:04, эд104267

Вопрос/Задача:

Написать программу, которая в заданном одномерном массиве размерности n меняет местами соседние элементы, стоящие на чётных местах, с соседними элементами, стоящими на нечётных местах.

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

Ответ
Ответ разместил: Гость

var a: array[1..100] of integer;

s,i: integer ;

sr: real;

begin

  {vvod massiva a}

    for i: = 1 to 100 do

        sr: =sr+a[i];

    sr: = sr/100;

 

    for i: = 1 to 100 do

        if a[i]> sr then

          s: =s+1;

 

    writeln(s);

end.

Ответ
Ответ разместил: Гость

необходимо (но не достаточно).

Ответ
Ответ разместил: Гость

var alpha: real;

begin

  read(alpha);

  if alpha > 90 then write("tupougolnyj");

  if alpha = 90 then write("prjamougolnyj");

  if alpha < 90 then write("ostrougolnyj");

end.

Ответ
Ответ разместил: Sergeysergo

var a: array[1..10] of integer; i,tmp: integer; begin  cls;   for i: =1 to 10 do a[i]: =i;     for i: =1 to 10 do  begin  if i mod 2 = 1 then  begin  tmp: =a[i];   a[i]: =a[i+1];   a[i+1]: =tmp;   end;     end; for i: =1 to 10 dowrite(a[i], ' '); end.

Похожие вопросы

Вопросов на сайте: 13551458