Построить таблицу В, состоящую из элементов таблицы А [1..75], имеющих четные индексы.

[KotyaraYa]

Турбо Паскаль. Код написал, но он мне что-то выводит 0. Я так в массивах не знаток, поэтому прошу у вас помощи.

program massiv;
uses crt;
const n=75;
var a: array [1..75] of integer;
i:integer;
begin
clrscr;
for i:=1 to n do
begin
if i mod 2=0 then
begin
for i:=1 to n do
begin
writeln(a[i]);
end;
redkey;
end;
end;
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

1-х, нет заполнения исходного массива A

2-х, всё намного проще:

for i:=1 to n do
   if i mod 2=0 then
        write(a[i],' ');

redkey;
end.

или так:

for i:=1 to (n div 2) do
     write(a[i*2],' ');

redkey;
end.

[KotyaraYa]

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

1-х, нет заполнения исходного массива A

2-х, всё намного проще:

for i:=1 to n do
   if i mod 2=0 then
        write(a[i],' ');

redkey;
end.

или так:

for i:=1 to (n div 2) do
     write(a[i*2],' ');

redkey;
end.

Я заполнил, сделал как вы написали. Вроде все норм, но можно ли как-нибудь сделать вывод в виде таблицы?
У меня такой код вышел:

program massiv;
uses crt;
const=75;
var a: array [1..75] of integer; i:byte;
begin
clrscr;
randomize;
for i:=1 to n do begin
a[i]:=random(76);
if i mod 2=0 then begin
write(a[i], ' ');
end;
readkey;
end;
end.

[Serge_Bliznykov]

ну, тут всё зависит от того, что вкладывается в понятие "вывести в виде таблицы"...

так, например, можно:

for i:=1 to n do begin
   a[i]:=random(76);
   if i mod 2=0 then
     write(a[i]:3, ' ');  { :3 - означает формат вывода - обеспечить под вывод элемента 3 позиции}
   if i mod 14 = 0 then WriteLn; {после вывода 7 (14 - т.к. нужно перебрать 14, чтобы вывести 7) чисел делаем переход на новую строку}
end;

кстати, я бы на вашем месте разделил заполнение массива A случайными числами (это один цикл). Тут же можно вывести все элементы массива А, чтобы было видно, что программа работает корректно.

Потом второй цикл - вывод элементов с чётными индексами.

[KotyaraYa]

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

ну, тут всё зависит от того, что вкладывается в понятие "вывести в виде таблицы"...

так, например, можно:

for i:=1 to n do begin
   a[i]:=random(76);
   if i mod 2=0 then
     write(a[i]:3, ' ');  { :3 - означает формат вывода - обеспечить под вывод элемента 3 позиции}
   if i mod 14 = 0 then WriteLn; {после вывода 7 (14 - т.к. нужно перебрать 14, чтобы вывести 7) чисел делаем переход на новую строку}
end;

кстати, я бы на вашем месте разделил заполнение массива A случайными числами (это один цикл). Тут же можно вывести все элементы массива А, чтобы было видно, что программа работает корректно.

Потом второй цикл - вывод элементов с чётными индексами.

Спасибо! Так и сделаю.