Question

. Дан массив целых чисел. Определить количество четных элементов и коли- чество элементов, оканчивающихся на цифру 5. Помогите,пожалуйста,паскаль-одномерный массив

Answer 1

Const
   N = 33;
Var
   A:array[1..N] of integer;
   i,c,p:integer;
Begin
c:=0;
p:=0;
Randomize;
Write('Исходный массив:');
For i:= 1 to N do
    Begin
    A[i]:=random(2*N+1)-N;
    Write(' ',A[i]);
    if A[i] mod 2 = 0 then c:=c+1;
    if (A[i] mod 5 = 0)and(A[i] mod 10 <> 0) then p:=p+1
    End;
WriteLn;
WriteLn('Количество чётных чисел: ',c);
WriteLn('Количество чисел, оканчивающихся на 5: ',p);
End.

Answer 2

Конечно, я могу помочь вам с этой задачей на Паскале. Вот пример кода для определения количества четных элементов и количества элементов, оканчивающихся на цифру 5, в одномерном массиве целых чисел:

program ArrayExample;

const
  SIZE = 10; // Размер массива

var
  arr: array[1..SIZE] of Integer; // Объявляем массив
  i, evenCount, endsWithFiveCount: Integer; // Переменные для счетчиков

begin
  evenCount := 0; // Инициализируем счетчик четных элементов
  endsWithFiveCount := 0; // Инициализируем счетчик элементов, оканчивающихся на 5

// Заполняем массив случайными значениями
  Randomize;
  for i := 1 to SIZE do
    arr[i] := Random(100);

// Проходим по массиву и увеличиваем счетчики при необходимости
  for i := 1 to SIZE do
  begin
    if arr[i] mod 2 = 0 then // Проверка на четность
      evenCount := evenCount + 1;

if arr[i] mod 10 = 5 then // Проверка на окончание на 5
      endsWithFiveCount := endsWithFiveCount + 1;
  end;

// Выводим результаты
  writeln('Количество четных элементов: ', evenCount);
  writeln('Количество элементов, оканчивающихся на 5: ', endsWithFiveCount);

end.

В этом примере мы объявляем массив `arr` размером `SIZE` и инициализируем два счетчика: `evenCount` для подсчета четных элементов и `endsWithFiveCount` для подсчета элементов, оканчивающихся на 5. Затем мы заполняем массив случайными значениями и проходим по массиву с помощью цикла `for`, увеличивая соответствующие счетчики при выполнении условий проверки.

Примечание: В данном примере используется генератор случайных чисел `Randomize` и функция `Random(100)`, чтобы заполнить массив случайными значениями от 0 до 99. Если вам нужны конкретные значения в массиве, вы можете изменить код соответствующим образом.

Вы также можете изменить размер массива `SIZE`, чтобы адаптировать его под свои нужды.