Дан массив, состоящий из целых чисел. напишите программу, которая определяет, есть ли в массиве пара соседних элементов с одинаковыми знаками.

Program main; var a: array[1..1000]of integer; i,n,k: integer; begin write('введите количество элементов в массиве: '); readln(n); writeln('введите массив: '); for i: =1 to n do read(a[i]); writeln; k: =0; for i: =1 to n-1 do if (a[i]=a[i+1]) then k: =k+1; if (k> 0) then writeln('есть ',k,' пар соседних элементов с одинаковым значением') else writeln ('нет пар соседних элементов с одинаковым значением'); end.

program xxx;

    var i, k : integer;

                  a : array [1..10] of real;

begin

  write('введите элементы массива а: ');

  for i: =1 to 10 do

        readln(a[i]);

  writeln('исходный массив а: ');

  for i: =1 to 10 do

        write(a[i]);

  k: =0;

  for i: =1 to 9 do

      if a[i]< > a[10] then k: =k+1;

  writeln('элементов отдичных от последнего -', k);

  readln

end.

640*480=307200

256 цветов кодируется 1-м байтом

307200 байт

512кбайт=524288 байт

не более 1 страницы