Массив с помощью random.

[puporev]

k:=0;
for i:=1 to n do //массив иксов
if y(x) определено then  //если есть решение(здесь твое условие)
   begin
     inc(k);  //увеличиваем к
     y[k]:=y(x[i]);  //считаем у и заносим в массив
   end;
for i:=1 to k do  //массив игреков длиной к.
write y[i[:6:2);

[bygoga]

program lab8;
uses crt;
const t=1e-8;
var x: array [1..100] of real;
    y: array [1..100] of real;
    i,j,n,m:integer;
    a,c,zn,ch,k:real;
    b:byte;
function f(x:real):real;
begin
   a:=2*x-3;
   c:=cos(x);
   zn:=x*sqr(x)-0.8*x-0.75;
   if (a>t) then
   begin
      a:=ln(a);
      if (abs(c)>t) and (abs(zn)>t) then
      begin
         k:=sin(x)/c;
         k:=exp(ln(abs(k)/5));
         ch:=7.3*x*sqr(x)+k;
         f:=ch/zn+a;
         b:=1;
      end
      else
      b:=2;
   end
   else
   b:=2;
end;
begin
   clrscr;
   write ('Vvedite kol-vo elementov massiva n=');
   readln (n);
   j:=0;
   for i:=1 to n do
   begin
      x[i]:=(-22* random)+(44*random);
      writeln ('x[',i,']=',x[i]:8:4);
      if b=1 then
      begin
         inc(j);
         y[j]:=f(x[i]);
      end;
      for i:=1 to j do
      writeln ('y[',j,']=',y[j]:8:4);
   end;
   readkey
end.

Может я что-то не так сделал, но у меня только массив иксов выдает и все.

[puporev]

if b=1 then

Мы с компьютером не поняли откуда выскочило b и когда оно будет равно 1.

[bygoga]

ну тыпа если б равно один значит функция существует..если два то нет...может там вообще не надо было через функцию делать...короче у меня что так что так нифига не работает

[puporev]

В твоей функции желания разбираться нет. Ты должен вывести область определения функции, а потом писать

if x[i] попадает в область определения then
   begin
      inc(j);
         y[j]:=f(x[i]);
      end;

[Anatoliy1984]

Сообщение от puporev

Можно поточнее задавать свой вопрос? Минимальное значение может быть от одного до нескольеих одинаковых и не совпадать с количеством строк. Может надо минимальный элемент каждой строки матрицы переставить на первое место в строке? Или что? Глупость напишете и чего-то ждете.

Да вы друг мой педант..
именно так "Может надо минимальный элемент каждой строки матрицы переставить на первое место в строке?" Я в методичке смотрел там просто для строки описано. А вот с 2-х мерной не получилось у меня

[puporev]

Какое отношение имеет Ваше сообщение к данной теме? Если Вы хотите продолжить беседу по Вашей теме, то там и пишите, я ее искать не обязан.
Если Вы можете это сделать с одной строкой, то что Вам мешает это сделать со всеми строками матрицы?

[bygoga]

все равно ничего не получилось...у считается не правильно и на все значения икса выводит один и тот же игрик...

[puporev]

Слушай, искатель телепатов, может наконец полное задание выложишь, причем в оригинале, а не своими словами.

[Ganmaker]

пять двадцать пять