МАссив

[XaHTeP]

Задание такое: "заполнить одномерный массив В так,чтобы каждый элемент с четным индексом был равен половине своего номера, с нечетным номером-нулю" Помоги пожалуйста, напишите прогу)

[XaHTeP]

Напишите программу плз

[Stilet]

var b:array[1..10] of real; i:integer;
begin
 for i:=1 to 10 do begin 
  if (i mod 2)=0 then b[i]:=i/2 else b[i]:=0;
  write(b[i]:5:2);
 end;
 readln;
end.

Подходит?

[XaHTeP]

Да, огромное спасибо

[Poma][a]

Ну ладно, Вы хоть пожалуйста сказали

var
    a : array [1..10000] of Integer;

begin
    ReadLn (n);
    
    for i := 1 to n do 
        Read (a, [i]);

    for i := 1 to n do 
        if i mod 2 = 0 then
            a[i] := a[i] div 2
        else
            a[i] := 0;

     for i := 1 to n do
         Write (a[i], ' ')
end.

Опоздал...

[XaHTeP]

МММ пока сидел ждал ответа решил сделать сам) вроде тоже правильный вариант получился
Program p1;
var i,n:integer;
b:array [1..100] of real;
begin
read(N);
for i:=1 to n do
begin
read(b[i]);
if i mod 2=0 then
b[i]:=i/2
else
b[i]:=0;
writeln(b[i]);
end;
END.