Формирование и обработка массивов (pascal)

[deceiver]

Создать и вывести массив "У" с елементами "У(к)". "к"=1,2,...,7.Создать и вывести новый массив который состоит из положительных елементов массива "У".
"У(к)"=abs(cos(2*x)/(3*x-Pi))+2.54
Прокоментируйте ход решения плиз

[Sazary]

http://programmersforum.ru/showthread.php?t=41110
Что еще непонятно?

[deceiver]

все непонятно))) обьясни пжл

[Sazary]

Если все непонятно, то вам сюда -> http://programmersforum.ru/showthread.php?t=8324
Что вам объяснить? Основы программирования?

В цикле от 1 до 7 заполняете массив по формуле (она у вас уже в готовом виде. Просто взять и вставить)
Затем в цикле (можно и в том же):
если элемент >0, то присваиваете его элементу второго массива и увеличиваете индекс этого второго массива.

Остается просто записать это на паскале.

[deceiver]

проверьте плиз мои достижения.Условие тоже самое
program a1;
uses crt;
const
k=7;
var a:array[1..k,1..k] of real;
b:array[1..k,1..k] of real;
i,j,g,m:integer;
begin
for i:=1 to k do
for j:=1 to k do
a[i,j]:=abs(cos(2*i)/(3*j-pi))+2.54;
g:=0;
m:=0;
for i:=1 to k do
for j:=1 to k do
if a[i,j]>0 then
begin
inc(g);
inc(m);
b[g,m]:=a[i,j];
end;
write(b[g,m]:6:1);
readln;
end.

[alex_fcsm]

Так у Вас же одномерный массив?

program a1;
uses crt;
const
k=7;
var a,b:array[1..k] of real;
    i,j,m:integer;
begin
for i:=1 to k do
 begin
 a[i]:=abs(cos(2*i)/(3*i-pi))+2.54;
 write(a[i]:6:3);
 end;
writeln;
m:=0;
writeln;
for i:=1 to k do
  if a[i]>0 then
  begin
   inc(m);
   b[m]:=a[i];
   write(b[m]:6:3);
  end;
  writeln;
readln;
end.

С матрицей будет что-то подобное

program a1;
uses crt;
const
k=7;
var a:array[1..k,1..k] of real;
    b:array[1..k,1..k] of real;
i,j,g,m:integer;
begin
for i:=1 to k do
for j:=1 to k do
a[i,j]:=abs(cos(2*i)/(3*j-pi))+2.54;
g:=0;
m:=0;
for i:=1 to k do
 begin
  inc(g);
  for j:=1 to k do
   if a[i,j]>0 then
     begin
      inc(m);
      b[g,m]:=a[i,j];
      write(b[g,m]:6:1);
     end;
  m:=0;
  writeln;
  end;
readln;
end.

P.S. Согласно Вашей формуле все элементы будут положительными abs(cos(2*x)/(3*x-Pi))+2.54