Из заданного массива создать три массива, в одном из которых содержатся элементы кратные 2, в другом кратные 5 - Turbo Pascal

  1. Из заданного массива создать три массива, в одном из которых содержатся элементы кратные 2, в другом кратные 5, в третьем оставшиеся элементы.


textual

Код:

const n=10;
var a,b,c,d:array [1..n] of integer;
i,bi,ci,di:integer;
begin
writeln('Исходный массив:');
for i:=1 to n do
begin
   a[i]:=random(55);
   write(a[i],' ');
end;
bi:=0;
ci:=0;
di:=0;
for i:=1 to n do
begin
   if (a[i] mod 2 = 0) then
      begin
         inc(bi);
         b[bi]:=a[i];
      end;
   if (a[i] mod 5 = 0) then
      begin
         inc(ci);
         c[ci]:=a[i];
      end;
  if (a[i] mod 5 <> 0) and (a[i] mod 2 <>0) then
      begin
         inc(di);
         d[di]:=a[i];
      end;
 end;
 writeln;
 if bi>0 then
 begin
 writeln('Массив чисел,кратных 2:');
 for i:=1 to bi do
 write(b[i],' ');
 writeln;
 end
 else writeln('Чисел,кратных 2 нет.');
 if ci>0 then
 begin
 writeln('Массив чисел,кратных 5:');
 for i:=1 to ci do
 write(c[i],' ');
 writeln;
 end
 else writeln('Чисел,кратных 5 нет.');
 if di>0 then
 begin
 writeln('Оставшиеся числа:');
 for i:=1 to di do
 write(d[i],' ');
 writeln;
 end
 else writeln('Лишних чисел нет.');
 readln;
 end.


Похожие ответы
  1. В массиве A[1..N] найти максимальное число и уменьшить все элементы массива на 5. Вывести полученную последовательность на экран. Помогите пожалуйста!

  1. Ввести с клавиатуры одномерный массив из 5 чисел , подсчитать сумму элементов больше нуля и вывести результат на экран монитора.

  1. Ввести с клавиатуры двумерный массив из 9 чисел, подсчитать сумму элементов всего массива

  1. Доброго времени суток, хотел бы попросить у Вас помощи в решение задач в turbo pascal:Разработка в среде Turbo Pascal программы формирования и обработки элементов одномерного массива: 1) Сформируйте двухмерный целочисленный массив S(4x9), используя генератор случайных чисел на интервале (-10, 6). Элементы массива вывести на экран в виде матрицы. 2) Преобразуйте массив S в одномерный массив X. Полученный массив вывести на экран. 3) Вычислите среднегеометрическое значение каждых третьих элементов последней четверти массива X. 4) Среди четных по значению элементов массива X определите наименьший. 5) упорядочить принадлежащие интервалу [a/2;b/2] элементы первой половины массива X по возрастанию квадратов значений. Заранее благодарен за помощь.

  1. Здравствуйте! Запутался в передаче массива функции. И подскажите, правильно ли использую комбинированный тип.

  1. Дан целочисленный вектор А(n). Отсортировать его элементы методом линейного выбора с подсчётом

  1. Дан произвольный одномерный массив (элементы вводятся с клавиатуры). Формирование элементов массива, обработку и если нужно вывод массива оформить отдельными подпрограммами. Вычислить сумму нечетных элементов, а все остальнве удвоить.

  1. Массив А(30) заполнить целыми случайными числами в диапазоне от 5 до 115. Вывести те значения А(I)(I = 2, 3, . . ., 29), которые больше своих соседей, и подсчитать их количество N. Вывести также весь массив А.

  1. В массиве а1, а2, ..., а30 найти среднее арифметическое всех отрицательных элементов, а из оставшихся сформировать новый массив bk. Буду очень благодарен.

  1. В одномерном массиве что состоит из N действительных элементов вычислить: 1.Максимальний элемент массива. 2.Суму элементов расположенных до последнего положительного элемента. Удалить из массива все элементы модуль которых находится в интервале [a, b] .Елементы которые освободятся в конце массива заполнить нулями.