3 задачки на массивы, Люди помогите горююю Опции

[Serg76]

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

[Айра]

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

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

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

[mind abuse]

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

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

Код

Program t1;
uses
crt;
var
  a,b:array[1..1000] of real;
  i,Kol,n,m:integer;

begin
clrscr;

writeln('input number of elements of each array');
writeln('n=');
readln(n);
writeln('m=');
readln(m);

writeln('input elements');

for i:=1 to n do
begin
writeln('a[',i,']=');
readln(a[i]);
end;

for i:=1 to m do
begin
writeln('b[',i,']=');
readln(b[i]);
end;

kol:=0;

if n>m then

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

else

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

writeln('kol=',kol);
end.

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

Код

Program t1;
uses
crt;
var
  a:array[1..1000] of real;
  Alf,s:real;
  i,Kol,n:integer;

begin
clrscr;
n:=10;
writeln('input alf');
readln(Alf);
writeln('input elements');

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;
writeln('i=',i);
end;
end;
writeln('s=',s);
writeln('kol=',kol);
end.