Отсортировать массив, найти его элементы, являющиеся квадратами четных чисел (и их количество) - PascalABC.NET

  1. Даны натуральные числа n, a1......an где n<=3000. Отсортировать последовательность a1.....an в порядке возрастания, найти элементы ak последовательности, являющимся квадратами четных чисел, и определить их количество. Помогите пожалуйста Сортировать надо методом пузырька.Добавлено через 2 часа 51 минуту Допишите пожалуйста


textual

Код к задаче: «Отсортировать массив, найти его элементы, являющиеся квадратами четных чисел (и их количество) - PascalABC.NET»

var
  A: array[1..3000] of integer;
  N, i, j, k, tmp: integer;
 
begin
  repeat
    write('N=');
    readln(n);
    if (n <= 0) or (n > 3000) then writeln('Исходные данные неверны');
  until(n > 0) and (n <= 3000);
  write('Исходный массив:');
  
  for i := 1 to n do
  begin
    A[i] := random(100);
    write(A[i]);
    if i < n then write(',');
  end;
  writeln;
  
  for i := 2 to n do
    for j := n downto i do
      if A[j] < A[j - 1] then
      begin
        tmp := A[j - 1];
        A[j - 1] := A[j];
        A[j] := tmp;
      end;
  k := 0;
  write('Порядок возрастания: ');
  for i := 1 to n do 
  begin
    write(A[i]);
    if (A[i] <> 0) and (frac(sqrt(A[i]) / 2) = 0) or (A[i] = 1) then inc(k);
    if i < n then write(',');
  end;
  writeln;
  Writeln('Колличество квадратов четных чисел = ', k);
end.

СДЕЛАЙТЕ РЕПОСТ

15   голосов, оценка 3.933 из 5



Похожие ответы
  1. Желательно в одну функцию или процедуру :-) Словарь: Dinctionary

  1. Даны натуральные числа n, a1......an где n<=5000. Отсортировать последовательность a1.....an в порядке убывания, найти элементы ak последовательности, имеющие чётные порядковые номера и являющиеся нечетными числами, и определить их количество. Надо делать через массив, отсортировал по убыванию, а дальше что делать не знаю. Сортировать надо методом пузырька.

  1. Помогите сделать, пожалуйста: сформируйте массив, содержащий n элементов, с помощью датчика случайных чисел. Получите новый массив, каждый элемент которого равен среднему арифметическому элементов, стоящих до и после него в исходном массиве. Выведите на экран исходные и полученные результаты Заранее спасибо!

  1. 1. Дан массив из N элементов . Отсортировать по возрастанию все элементы, значения которых кратно 11. *будет круто, если сможете использовать алгоритм пузырька.

  1. Может кому нибудь да пригодится) Стараюсь все делать по шагам и чтобы было понятно каждому. Иногда вижу простые программы, но составленные очень запутанным способом. Поэтому желаю чтобы все программировали как можно понятнее и выкладывали свои результаты! Каждый должен делать вклад))

  1. Помогите плз) нужно поставить элементы с 1 и 3 столбца массива как до сортировки. то есть, к примеру, после сортировки стало: 227|0,000987|227|0,000987 а должно быть 192|0,000987|197|0,000987

  1. Дан одномерный массив, который содержит не более 40 целых чисел. Создать новый массив, элементами которого являются суммы цифр каждого числа старого массива. Нужна процедура или функция для данной задачи.

  1. Суть программы она должна отсортировать данные по алфавиту. Можно ли сделать так что-бы при выводе программы из файла она каждую фамилию писала с новой строки?

  1. дан целочисленныймассив A(a1..an). отсортировать массив по возростанию начиная с минимального элемента