дан массив а состоящий из к целых положительных чисел. Записать все четные по значению элементы массива а в массив b

@azazellka666 · Регистрация: 04.05.2011

дан массив а состоящий из к целых положительных чисел. Записать все четные по значению элементы массива а в массив b.

@vladoscom93 · 03.06.2012, 18:53

Pascal

var a,b:array[1..100] of integer;
  i,n1,n:integer;
begin
  n1:=0;
  randomize;
  write('Введите размер массива: ');
  readln(n);
  for i:=1 to n do
    a[i]:=random(10);
  for i:=1 to n do
    if (a[i] mod 2)=0 then
      begin
        inc(n1);
        b[n1]:=a[i];
      end;
  write('Искомый массив: ');
  for i:=1 to n do
    write(a[i],' ');
  writeln;
  write('Результат: ');
  for i:=1 to n1 do
    write(b[i],' ');
end.

@azazellka666 0 / 0 / 0 Регистрация: 04.05.2011 Сообщений: 33
		1
	дан массив а состоящий из к целых положительных чисел. Записать все четные по значению элементы массива а в массив b 03.06.2012, 12:21. Просмотров 3292. Ответов 1 Метки нет (Все метки) дан массив а состоящий из к целых положительных чисел. Записать все четные по значению элементы массива а в массив b. 0

Опции темы

дан массив а состоящий из к целых положительных чисел. Записать все четные по значению элементы массива а в массив b

Решение