двумерный массив Опции

[KATYSHA]

Самый простой вариант:

volvo здесь что-то не то, там числа по кругу идут, когда проверяешь. Посмотри пожалуйста

[volvo]

To: KATYSHA
Я десятый раз повторять не буду... Пока ты не приведешь те данные, которые вводишь, претензии не принимаются...

[KATYSHA]

To: KATYSHA
Я десятый раз повторять не буду... Пока ты не приведешь те данные, которые вводишь, претензии не принимаются...

Да просто числа вводила,а они не кончаются .................вводишь,вводишь,а птом опять они повторяются .Приходится нажимать break+ctrl :-(

[volvo]

Ну, хорошо, что ты хочешь чтобы тебе сказали? Ты ж не говоришь, что ты вводишь, это тайна, покрытая мраком... Ну, разбирайся сама... Если что-то не сработало, значит программу меняла... Я спорить с тобой не намерен. Еще раз повторяю - ВСЕ мои программы тестируются, раз я выложил, значит, это отработало... Могу привести данные, для которых все работает...

Хотя, зачем это МНЕ нужно? Тебе нужна программа, а ты молчишь... Ну, молчи ...

[KATYSHA]

Тебе нужна программа, а ты молчишь...

да я ж не молчу.Я говорю,ввожу просто от балды любые числа,а программу я не меняла

Добавлено (через 1 час):

Эхх, я тут посмотрел, на форуме начались дни добрых дел и выкладывания полных решений, так что держи :

А что тут должна делать программа? я ввожу текст, нажимаю ентер и ничего нет, и дальше тоже не пишется. Объясни плиз

Добавлено (через 3 часа):

Самый простой вариант:

Здесь всё правильно!!!! просто я тормоз. Извини

[KATYSHA]

Извините конечно меня за назойливость,но в задании нужно заменить максимальный эл-т суммой положительных,а не максимальных.ну это можно переделать типа if a[i, j] <0 then i_min := j;и т.д.Но тут ещё он заменяет не сам максимальный эл-т,а другой,а сам остается таким,каким он был введён(такая же ситуация и с минимальным).Помогите пожалуйста доделать эту программку.Очень признательна

[volvo]

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

Да не нужно ничего переделывать !!! Ты на программу-то смотрела? Что по-твоему, будет после этого цикла в sum_plus и sum_minus ???

    for j := 1 to n do begin
      if a[i, j] < a[i, i_min] then i_min := j;
      if a[i, j] > a[i, i_max] then i_max := j;

      if a[i, j] < 0 then sum_minus := sum_minus + a[i, j]
      else sum_plus := sum_plus + a[i, j];
    end;

Но тут ещё он заменяет не сам максимальный эл-т,а другой

Правда? И какой же, интересно, если не максимальный/минимальный?

[KATYSHA]

Да не нужно ничего переделывать !!! Ты на программу-то смотрела? Что по-твоему, будет после этого цикла в sum_plus и sum_minus ???

    for j := 1 to n do begin
      if a[i, j] < a[i, i_min] then i_min := j;
      if a[i, j] > a[i, i_max] then i_max := j;

      if a[i, j] < 0 then sum_minus := sum_minus + a[i, j]
      else sum_plus := sum_plus + a[i, j];
    end;

Правда? И какой же, интересно, если не максимальный/минимальный?

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

[KATYSHA]

Эхх, я тут посмотрел, на форуме начались дни добрых дел и выкладывания полных решений, так что держи :

здесь как я Enter нажимаю, вылетает. Что делать? там должно ведь писаться что там ложь или истина

[volvo]

здесь как я Enter нажимаю,вылетает

Я уже устал говорить тебе... ПРИМЕР ВВОДА ПРИВЕДИ !!! Вот мой ввод - ничего не вылетает, как видишь:

text = start finish end begin
start      FALSE
finish      TRUE
end      FALSE
begin      FALSE

[KATYSHA]

Я уже устал говорить тебе... ПРИМЕР ВВОДА ПРИВЕДИ !!! Вот мой ввод - ничего не вылетает, как видишь:

text = start finish end begin
start      FALSE
finish       TRUE
end      FALSE
begin      FALSE

ааааа,а я просто от балды писала.Например:gjndghs lixguhtg giru .теперь понятно,он оказывается различает,что пишу)))

[KATYSHA]

Я уже устал говорить тебе... ПРИМЕР ВВОДА ПРИВЕДИ !!! Вот мой ввод - ничего не вылетает, как видишь:

text = start finish end begin
start      FALSE
finish       TRUE
end      FALSE
begin      FALSE

volvo,слушай,а ты наверно программку проверял со строкой limits?!да?а я делаю программу,без этой строки и вставила то,что ты написал выше

[KATYSHA]

KATYSHA, это невозможно...
Когда среднее арифметическое N элементов максимально? Когда все эти элементы одинаковы, так?

Допустим, все элементы одинаковы и равны "Х", тогда и среднее арифметическое равно "X". РАВНО, но не БОЛЬШЕ !!! Увеличим один элемент на значение "Y", тогда ср. арифметическое увеличится на Y/N, что заведомо меньше чем Y... Так что ср. арифметическое просто НЕ МОЖЕТ быть больше макс. элемента массива...

Так что пускай твой препод сам пошевелит тем, что у него вместо мозгов, и даст другое задание или переформулирует это...

Да не меняет он задание.Напишите плиз как тут программку писать,пусть даже и бессмыслено будет решение

[volvo]

Дан файл вещественных чисел. Если среднее арифметическое его компонент превышает значение максимального эл-та файла,удалить из него все отрицательные эл-ты,в противном случае- удалить все положительные.

Алгоритм примерно такой:

var
  arr: array[1000] of real;
...
Reset(f);
max := -10000;
aver := 0; n := 0;
while not eof(f) do begin
  read(f, X);
  if X > max then max := X;
  aver := aver + X;
  inc(n); arr[n] := X;
end;
aver := aver / filesize(f);

i := 1;
while i <= n do begin
  if (arr[i] < 0) = (aver < max) then begin
    for j := i to pred(n) do arr[j] := arr[j+1]
    dec(n);
  end
  else inc(i);
end;

reset(f);
for i := 1 to n do write(f, arr[i]);
truncate(f);
close(f);

[KATYSHA]

А как именно?напиши плиз полностью