Помогите с написанием программы на Pascal

[strannik20]

Помогите с написанием программы на Pascal

Помогите с написанием программы на pascal, я чайник ничего не шарю в этом....
а задание такое:
1. Ввод массива целых чисел.
2. Вывод массива в строку.
3. Найти количество положительных элементов в массиве. Заменить все четные элементы массива на их индексы.

 

[strannik20]

Ну помогите ктонибудь! :tehnari_ru_038:

 

[Gruvi]

1)
Пример фрагмента программы заполнения массива Паскаля случайными числами
Var
A: array [1..10] of integer;
I : byte ; {переменная I вводится как индекс массива}
Begin
For i :=1 to 10 do
A [ i ]:= random (10); { i -му элементу массива присваивается «случайное» целое число в диапазоне от 0 до 10}

2)
Var
A: array [1..10] of integer;
I : byte ; {переменная I вводится как индекс массива}
Begin
For i :=1 to 10 do
Write ( a [ i ],’ ‘); {вывод массива осуществляется в строку, после каждого элемента печатается пробел}

3)

ищи в инете, там навалом этих программ, и тут на форуме.

 

[shrek=)]

var
a:array [1..10] of integer;
i,k:integer;
begin
randomize;
k:=0;
for i:=1 to 10 do begin
a[i]:=random(10)-4;
if a[i]>0 then inc(k);
write (a[i]:3);
end;
writeln;
for i:=1 to 10 do begin
if abs(a[i]) mod 2=0 then a[i]:=i;
write (a[i]:3);
end;
writeln;
write ('k=',k);
readln
end.

 

[strannik20]

CGFCB<J JUHJVYJT DCTV!!!!
СПАСИБО ОГРОМНОЕ ВСЕМ!!!!!arrot: