1.Задан одномерный массив а (n). Найти количество, все номера и сумму элементов массива больших заданного числа alfa(здесь не пойму как найти и вывести ВСЕ номера элементов)
2.Дан одномерный массив y={yi}, i=1,n. Найти разность номеров ми¬нимального и макси¬мального элемен¬тов.
3.Дан массив а (n).Определить номера элементов = 5, количество положительных элементов для всего массива и сумму возведенных в квадрат отрицательных элементов стоящих на нечетных местах. (использовать repeat с шагом 2)
в двух других вобще завал.каму не сложно помогите пожалуйста

1) заводи какую-нибудь динамическую структуру(например, очередь), где ты будешь их хранить и вноси все туда или выводи "по ходу"
2) ищешь минимум(запоминая индекс), аналогично максимум(можно за все за один проход). вычитаешь индексы.
3) про repeat, наверно, имеется ввиду, что перебирать не каждый элемент за одно изменение счётчика, а по два..

спасибо счас попробую

Добавлено через 19 мин.
если можно то еще раз с суммой и количеством элементов понятно а как мне описать чтоб все номера запоминались и выводились на экран?сдесь что то Я непойму

если тебе надо просто вывести на экран, то проще было бы выводить по ходу -- нашел элемент- вывел номер. Если же надо запомнить и вывести, то
проходим по массиву, если элемент больше alfa, то

• увеличиваем количество на один
• добавляем значение элемента к некой сумме
• добавляем индекс в очередь

взять модуль для работы с очередями можно тут: Все о динамических структурах данных. , там же можно взять модули для работы с другими динам. структурами.

спс счас попробую))

проверти пожалуйста Я правильно понял

 var const n:=100;
a:arrey[1..n] of real;
 Alf,Sum:real;
i,Kol:integer:
begin
writeln('введите alf');
writeln('введите элементы массива');
for i:=1 to n do readln(a[i]);
s:=0:kol:=0:
for i:=1 to n do begin
if a[i]>alf then begin s:=s+a[i];
     kol:=kol+1;
writln('i='i);
end;
end;
writeln('s='s);
writeln('kol='kol);
end.

Я) это должен читать? ты сначала попробуй это откомпилировать...

Понял то вроде правильно, но вот программка компиляцию не проходит.. Попробуй исправить это сам?

У меня возник еще один вопрос как можно в ОДНОМ цикле посчитать отрицательные элементы ДВУХ массивов а[n]
и b[n]. направти мысль а то что то ни как не соображу.

Если каждого по отдельности, то нужно по переменной для каждого массива.. и проверка будет тоже для каждого своя..

нет просто дано два массива нужно посчитать в них количество (-)элементов,но сделать это в одном цикле( просто общее колличество

тогда у тебя просто две проверки будет в цикле:

for i:=1 to n do
  begin
    if a[i]<0 then inc(k);
    if b[i]<0 then inc(k);
  end;

но это если количество элементов в обоих массивах одинаковое..

Если неодинаковое, то тогда проверка if n>m, и считаем до того числа, которое больше




Кстати, подправил предыдущую:

спасибо большое

А я бы так сделала:

i:=1;
while (i<=n) or (i<=m) do
  begin
    if a[i]<0 then inc(kol);
    if b[i]<0 then inc(kol);
    inc(i);
  end;

И нет лишнего кода..

Согласен =)

не могу разобратся с этой задачкой особенно в той ее части (элементы стоящие на несетных местах используя repeat(((((((((((((

Так:

i:=1
repeat
  ....
  inc(i,2)
  ....
until i>n

А вообще выкладывай то, что получилось\неполучилось.. Будем разбирать))

Всем спасибо за помощь этот этап пройден