Question

Определить сколько процентов от всего количества элементов последовательности целых чисел составляют нечетные элементы.Паскаль.

Answer 1

Var N,i,x,k:integer;
 begin;
writeln('Сколько элементов в последовательности?');
readln(N);
writeln('Введите последовательность чисел');
for i:=1 to N do 
begin                   
readln(x);     
if odd(x) then               
k:=k+1end;writeln(k/N*100,' %');           
end.

Answer 2

Для определения процента нечетных элементов в последовательности целых чисел вам нужно выполнить следующие шаги в Pascal (синтаксис на псевдокоде):

1. Подсчитайте общее количество элементов в последовательности.
2. Подсчитайте количество нечетных элементов в последовательности.
3. Вычислите процент нечетных элементов, разделив количество нечетных элементов на общее количество элементов и умножив на 100.

Вот пример кода на Pascal:

pascalCopy code
program PercentageOfOdds;

var
  sequence: array of Integer;
  totalElements, oddElements, i: Integer;
  percentage: Real;

begin
  { Здесь заполняется ваша последовательность или массив sequence }

  totalElements := Length(sequence);
  oddElements := 0;

  for i := 0 to totalElements - 1 do
  begin
    if sequence[i] mod 2 <> 0 then
      Inc(oddElements);
  end;

  percentage := (oddElements / totalElements) * 100;

  writeln('Всего элементов в последовательности: ', totalElements);
  writeln('Количество нечетных элементов: ', oddElements);
  writeln('Процент нечетных элементов: ', percentage:0:2, '%');
end.

Замените { Здесь заполняется ваша последовательность или массив sequence } на код для заполнения вашей последовательности или массива числами. После этого запустите программу, и она покажет общее количество элементов, количество нечетных элементов и процент нечетных элементов в последовательности.