Задан массив с количеством элементов N. Сформируйте два массива: в первый включите элементы исходного масси

@ronn · Регистрация: 07.06.2016

Задан массив с количеством элементов N. Сформируйте два массива: в первый включите элементы исходного массива с четными номерами, а во второй — с нечетными.
Нашел вот это похожее.Но надо не через рандомайз,а через клавиатуру.Помогите пожалуйста.

Pascal

uses crt;
var a,b,c:array[1..100] of integer;
    i,k,m,n:integer;
begin
Clrscr;
Write('Vvedite k: ');
Readln(k);
for i:=1 to k do
 begin
  a[i]:=random(10)-6;
  Write(a[i],'  ');
 end;
Writeln;
for i:=1 to k do
 if i mod 2=0 then
  begin
   inc(n);
   b[n]:=a[i];
  end
 else
  begin
   inc(m);
   c[m]:=a[i];
  end;
Writeln('Mass B: ');
for i:=1 to n do
 Write(b[i],'  ');
Writeln;
Writeln('Mass C: ');
for i:=1 to m do
 Write(c[i],'  ');
Readln;
end.

@Onyschuck · 08.06.2016, 02:39

Сообщение от ronn

* a[i]:=random(10)-6;
*

Вместо этих строк пишеш:

Pascal

1 2	read(d); A[i]:=d;

Только перед этим у var допиши d:integer;

Опции темы