Ввести целочисленный одномерный массив A, вывести его. Найти K– количество нечётных элементов в этом массиве

@Orbit110 · Регистрация: 18.12.2015

Студворк — интернет-сервис помощи студентам

Добрый вечер.
Помогите решить задачу,с обычным одномерным массивом справился,а со сложным не могу.

Ввести целочисленный одномерный массив A, вывести его. Найти K–
количество нечётных элементов в этом массиве. Произвести циклический
сдвиг вправо элементов массива K раз.

Добавлено через 12 часов 49 минут
Подскажите кто-нибудь...

@vint-81 · 19.12.2015, 13:48

Pascal

const nn=10;
type mas=array[1..nn] of integer;
var a:mas;
    n,i,k:integer;
procedure inp(var x:mas);
var i:integer;
begin
 writeln('введите элементы массива:');
 for i:=1 to n do
  begin
   write('a[',i,'] = ');readln(a[i])
  end 
end;
procedure outp(x:mas;s:string);
var i:integer;
begin
 writeln(s);
 for i:=1 to n do write(a[i]:3);writeln
end;
procedure sdvig(var x:mas);
var i,tmp:integer;
begin
 tmp:=a[n];
 for i:=n downto 2 do a[i]:=a[i-1];
 a[1]:=tmp
end;
begin
 repeat
  write('введите количество элементов массива 1<n<=',nn,': ');
  readln(n)
 until (1<n)and(n<=nn);
 inp(a);
 outp(a,'исходный массив:');
 k:=0;
 for i:=1 to n do if odd(a[i]) then inc(k);
 writeln('количество нечетных: ',k);
 for i:=1 to k do sdvig(a);
 outp(a,'массив после циклического сдвига:');
end.

@Orbit110 0 / 0 / 0 Регистрация: 18.12.2015 Сообщений: 8
		1
	Ввести целочисленный одномерный массив A, вывести его. Найти K– количество нечётных элементов в этом массиве 19.12.2015, 12:52. Показов 2063. Ответов 1 Метки нет (Все метки) Добрый вечер. Помогите решить задачу,с обычным одномерным массивом справился,а со сложным не могу. Ввести целочисленный одномерный массив A, вывести его. Найти K– количество нечётных элементов в этом массиве. Произвести циклический сдвиг вправо элементов массива K раз. Добавлено через 12 часов 49 минут Подскажите кто-нибудь... 0

Опции темы

Ввести целочисленный одномерный массив A, вывести его. Найти K– количество нечётных элементов в этом массиве

Решение