Nightcrawlaer

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

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

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

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

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

AlexZir

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

__________________
Убить всех человеков!

MrSTEP

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

SGE

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

SGE

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

SGE

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