Построить массив, содержащий все четные элементы массива

@sergeyromantik · Регистрация: 08.04.2013

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

1. Построить массив D (N), содержащий все четные элементы массива А (20).

Комментарий модератора

sergeyromantik, обращаю ваше внимание на необходимость соблюдения правил форума:
один вопрос - одна тема. остальные задания вынесены в отдельные темы

@Chertenok_n_13 · 11.04.2013, 16:28

Pascal

uses crt;
var i,n: integer;
D: array [1..100] of integer;  
A: array [1..20] of integer;
begin
n:=0;
  writeln('Введите элементы массива: ');
  for i:=1 to 20 do begin
  write('A[',i,']=');
  readln(A[i]);
  if A[i]>0 then begin inc(n); D[n]:=A[i]; end; end;
clrscr();
 writeln('Исходный массив: ');
 for i:=1 to 20 do
 write(A[i]:4);
 writeln;
 writeln('Полученный массив: ');
 for i:=1 to n do
 write(D[i]:4);
 readln;
end.

@sergeyromantik · 11.04.2013, 18:38 **[ТС]**

Пасиб, а где поставить Random чтобы масив сам заполнялся?

@Chertenok_n_13 · 11.04.2013, 23:15

замените это

Pascal

writeln('Введите элементы массива: ');
  for i:=1 to 20 do begin
  write('A[',i,']=');
  readln(A[i]);

на это

Pascal

1 2	for i:=1 to 20 do begin A[i]:=random(200)-100;

@sergeyromantik 0 / 0 / 0 Регистрация: 08.04.2013 Сообщений: 15
	11.04.2013, 18:38 [ТС]	3
	Пасиб, а где поставить Random чтобы масив сам заполнялся? 0

Опции темы