Помогите решить простейшие задачи в pascal

[Nightcrawlaer]

Помогите решить простейшие задачи в pascal

1)Дан массив целых чисел.Выяснить:
является ли s -й элемент массива положительным числом;

2)Дан массив. Все его элементы:
умножить на последний элемент;

3)Дан массив. Определить:
сумму шести первых элементов массива;

Нужен листинг программ, заранее спасибо-)

Вы же сами признаётесь, что задачи простейшие. Вот и попытайтесь самостоятельно решить. Ваш модератор.

 

[AlexZir]

используйте циклические структуры, например, цикл for...

 

[MrSTEP]

Предложите свои варианты, наработки, мы поможем. Так же можете задать вопросы, если что-то не понятно

 

[SGE]

1.
write('введите значение параметра s: ');
readln(s);
if s<=n then
begin
if a>0 then writeln(s'-й элемент является положительным')
else writeln(s'-й элемент не является положительным');
end
else writeln('ошибка ввода');

 

[SGE]

2.
for i:=1 to n do
a:=a*a[n];

 

[SGE]

3.
for i:=1 to 6 do
sum:=sum+a;