Сортировка массивов

@sv_dell_sv · Регистрация: 27.01.2010

Author24 — интернет-сервис помощи студентам

Дан одномерный массив массив. Получить из него второй массив содержащий только четные элементы первого. Вывести на экран исходный, и полученный массивы. Числа вводятся с клавиатуры.

@AI\EKCAH^P · 31.03.2010, 20:44

Pascal

program zad;
type m=array[1..100] of integer;
var
m1:m;
i,n:integer;
procedure chet(mas:m;kol:integer);
var
m2:m;
k,i:integer;
begin
  k:=0;
  for i:=1 to kol do
  begin
    if m1[i] mod 2=0 then
    begin
      k:=k+1;
      m2[k]:=m1[i];
    end;
  end;
  for i:=1 to k do
  write(m2[i]:3);
end;
 
begin
 
  write('введите кол-во элементов ');readln(n);
  writeln('исходный массив');
  for i:=1 to n do
  readln(m1[i]);
  for i:=1 to n do
  write(m1[i]:3);
  writeln;
  writeln('преобразованный массив');
  chet(m1,n);
  readln;
end.

@sv_dell_sv 8 / 7 / 3 Регистрация: 27.01.2010 Сообщений: 104
		1
	Сортировка массивов 31.03.2010, 20:20. Показов 1161. Ответов 1 Метки нет (Все метки) Дан одномерный массив массив. Получить из него второй массив содержащий только четные элементы первого. Вывести на экран исходный, и полученный массивы. Числа вводятся с клавиатуры. 0

	31.03.2010, 20:44

Сортировка массивов

Решение