Question

Срочно !!! ABC PASCAL!!!!! 1.5. Дан одномерный массив А(N). Отсортировать массив по возрастанию. Найти количество элементов массива кратных 3.

Answer 1

const

COUNT = 100;

var

i,j,sum, tmp: integer;

a:array[1..COUNT] of integer;

begin

randomize;

for i:=1 to COUNT do

begin

 a[i]:= random(1, 100);

 if (a[i] mod 3 = 0) then inc(sum);

end;

writeln('Кол-во кратных 3 = ', sum);

writeln('Отсортированый');

for i:=1 to COUNT do

 for j:=1 to COUNT-1 do

   if (a[j]>a[j+1]) then

   begin

     tmp:=a[j];

     a[j]:=a[j+1];

     a[j+1]:=tmp;

   end;

for i:=1 to COUNT do

write(a[i],' ');    

end.

Answer 2

Хорошо, вот пример кода на языке Pascal (ABC Pascal) для сортировки одномерного массива и подсчета количества элементов, кратных 3:

pascalCopy code
program ArraySortingAndCounting;

const
  N = 10; // Здесь можно указать размер массива N

var
  A: array[1..N] of Integer;
  i, j, temp, countMultiplesOf3: Integer;

begin
  // Заполнение массива случайными значениями (можно изменить на ввод значений с клавиатуры)
  Randomize;
  for i := 1 to N do
    A[i] := Random(100); // Здесь генерируем случайные значения от 0 до 99

  // Вывод исходного массива
  writeln('Исходный массив:');
  for i := 1 to N do
    write(A[i], ' ');
  writeln;

  // Сортировка массива методом пузырька по возрастанию
  for i := 1 to N - 1 do
    for j := 1 to N - i do
      if A[j] > A[j + 1] then
      begin
        temp := A[j];
        A[j] := A[j + 1];
        A[j + 1] := temp;
      end;

  // Вывод отсортированного массива
  writeln('Отсортированный массив:');
  for i := 1 to N do
    write(A[i], ' ');
  writeln;

  // Подсчет количества элементов, кратных 3
  countMultiplesOf3 := 0;
  for i := 1 to N do
    if A[i] mod 3 = 0 then
      Inc(countMultiplesOf3);

  writeln('Количество элементов, кратных 3: ', countMultiplesOf3);
end.

Программа сначала заполняет массив A случайными значениями от 0 до 99. Затем она сортирует массив по возрастанию методом пузырька и подсчитывает количество элементов, кратных 3. Результаты выводятся на экран.