как сделать прогу по одномерному массиву

[__STDC__]

Я знаю чего они все хотят... они хотят Халявы...

[Disel]

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

Я знаю чего они все хотят... они хотят Халявы...

Это точно. Если хотят чтобы за них решили, писали бы конкретно что им надо.

[Stat_ya]

program pr;
const
n = 10;
var
a : array[1..n] of integer;
i : integer;
begin

randomize;

for i:=1 to n do
begin
a[i] := random(10);
write(a[i]:4);
end;

writeln;
for i:=1 to n do
begin
if i mod 2=0 then a[i]:=0;
if i mod 2<>0 then a[i]:=-1;
write(a[i]:4);
end;
writeln;
end.

просто когда писали немного ошиблись с условием.... ))) прога готова

[Scorp]

Поможете? Одномерный массив: const N=40; Var X:ARRAY [1..N] OF INTEGER; Y,K:INTEGER ; T:BOOLEAN; Переменой К присвоить либо номер первого вхождения Y в массив Х , либо число N, если в массиве Х нет отрицательных элементов

[DM_bite]

Можно было новую тему создать...

Поможете? Одномерный массив: const N=40; Var X:ARRAY [1..N] OF INTEGER; Y,K:INTEGER ; T:BOOLEAN; Переменой К присвоить либо номер первого вхождения Y в массив Х , либо число N, если в массиве Х нет отрицательных элементов

program XDDDD;
const N=40; Var X:ARRAY [1..N] OF INTEGER; Y,K,I,Z:INTEGER ;
begin
z:= 0;
ReadLn(Y);
for i:= 1 to n do
 begin
 ReadLn(x[i]);
if x[i]<0 then inc(z);
if z=0 then k:= n;
 end;
for i:= n downto 1 do
begin
if y=x[i] then k:= i;
end;
ReadLn;
end.