Одномерные массивы

[Dina 85]

ЯЗЫК TURBO PASCAL
1.Дан массив A(N). Создать новый массив, разделив положительные элементы на +9, отрицательные – на максимальный элемент массива, нулевые оставив без изменений.

2.Дан массив С(N). Найти среднее арифметическое положительных элементов с чётными индексами.

ОЧЕНЬ БЛАГОДАРНА ТЕМ КТО ОТКЛИКНЕТСЯ!

[Sciv]

Откликаюсь: сами-то хоть что-то пытались сделать? Хотя бы элементарное - объявить массив (уже даже не прошу вводить его).

[Mad_Cat]

Дан массив С(N). Найти среднее арифметическое положительных элементов с чётными индексами.

var c:array[1..100] of real;
i,cn,n:byte;
s:real;
begin
randomize;
s:=0;cn:=0;
readln(n);
for i:=1 to n do
begin
c[i]:=random(n)+1-n div 2+random(100)/100;
if not odd(i)   and (a[i]>0) then begin s:=s+c[i];inc(cn);end;
write(c[i]:6:2);
end;
writeln;
write(s/cn:6:2);
end.

Дан массив A(N). Создать новый массив, разделив положительные элементы на +9,
отрицательные – на максимальный элемент массива, нулевые оставив без изменений.

var a:array[1..100] of real;
i,n:byte;
mx:byte;
max:real;
begin
randomize;
readln(n);
mx:=1;
for i:=1 to n do
begin
a[i]:=random(n)+1-n div 2+random(100)/100;
if a[mx]<a[i] then mx:=i;
write(a[i]:6:2);
end;
writeln;
max:=a[mx];
For i:=1 to n do
begin
if a[i]>0 then a[i]:=a[i]/9
else a[i]:=a[i]/max;
write(a[i]:6:2);
end;
end.

[Politehnik]

а если нам надо найти номера строк в матрице, в которых есть данное число, то какой код будет после заполнения массива(т.к. заполнение у меня не вызывает проблем)

[Sciv]

Созать еще один массив или множество, и закидывать в него номера строк, в которых есть число. Предположим, есть массив [m,n], тогда введем еще массив [1..m] (так как число может встречаться в каждой строке) и счетчик для подстчета количества таких строк. Тогда определение строк будет таким:

count:=0;
for i:=1 to m do
  for j:=1 to n do 
    if a[i,j]=число then begin
      inc(count);
      b[count]:=i;
      break;
    end;

и вывод строк:

for i:=1 to count do WriteLn(b[i]);

[Mad_Cat]

http://programmersforum.ru/showpost....1&postcount=11
чем не устроило то?

[Politehnik]

программа не выполняет это действие, не знаю почему, и я как-то не понял, каким образом будет выводиться номер строки, в том варианте, который вы мне дали

[Dina 85]

все-таки лучше вручную вводить массив потому что мне нужно на контрольном примере проверять

[Stilet]

Ради бога, замени a[i]:=random(n)+1-n div 2+random(100)/100; на ввод через Readln и вводи.