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

Формулировка задачи:

Добрый вечер. Помогите решить задачу,с обычным одномерным массивом справился,а со сложным не могу. Ввести целочисленный одномерный массив A, вывести его. Найти K– количество нечётных элементов в этом массиве. Произвести циклический сдвиг вправо элементов массива K раз. Добавлено через 12 часов 49 минут Подскажите кто-нибудь...

Код к задаче: «Ввести целочисленный одномерный массив A, вывести его. Найти K– количество нечётных элементов в этом массиве - Pascal ABC»

textual
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.

14   голосов, оценка 3.786 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы