Задача

[IvanMir]

Дан массив A из 10 элементов (целые числа). Сформировать массив B, включив в него нечетные по номеру элементы из массива A.

[Bugrimov]

На каком языке программируете?

[IvanMir]

На языке Turbo Pascal

[Pein95]

Вы сами чтото сделали?

[IvanMir]

нет, к сожалению.

[Вадим Мошев]

Вот основа

i:=1;
j:=1;
while i < 10 do
	begin
		b[j]:=a[i];
		inc(i, 2);
		inc(j);
	end;

[Stilet]

Сформировать массив B, включив в него нечетные по номеру элементы из массива A.

var a,b:array[1..10] of integer;i,k:integer;
begin
 for i:=1 to 10 do begin 
  a[i]:=random(100); if (i mod 2)<>0 then begin b[k]:=a[i];inc(k);end; 
  write(a[i]:5);
 end; writeln;
 for i:=1 to 5 do begin 
  write(b[i]:5);
 end;
 readln;
end.

Идея ясна?

[IvanMir]

А можно на языке Turbo Pascal...

[Вадим Мошев]

А мы вам на чём написали?

[IvanMir]

ладно. что такое random и mod?