Из элементов введенного массива сформировать новый массив, содержащий положительные числа

@Tarick · Регистрация: 29.01.2013

Author24 — интернет-сервис помощи студентам

Написать программу ввода массива целых чисел из текстового файла. Файл содержит не
более 100 записей (строк). В одной строке размещено пять значений заданных чисел,
разделённых пробелом. Из элементов введенного массива сформировать новый массив,
содержащий положительные числа. Найти номер максимального элемента.

@JokeR.BY · 11.01.2015, 16:00

новый массив одномерный?

@Tarick · 11.01.2015, 16:36 **[ТС]**

Сообщение от JokeR.BY

новый массив одномерный?

видимо да )

@JokeR.BY · 11.01.2015, 17:12

Tarick, это ваше задание, что значит "видимо"?

@Tarick · 11.01.2015, 17:35 **[ТС]**

Сообщение от JokeR.BY

Tarick, это ваше задание, что значит "видимо"?

Одномерный ...решите, пожалуйста )

@JokeR.BY · 11.01.2015, 18:53

Pascal

const
    m = 5;
 
var
    ar : Array[1..100, 1..m] Of Integer;
    ar2 : Array[1..500] Of Integer;
    arSize, j : Byte;
    ar2Size, i, maxID : Word;
    f : Text;
 
begin
    Assign(f, 'f.txt'); Reset(f);
    arSize := 0;
    while ((Not(EoF(f))) And (arSize <= 100)) do
    begin
        Inc(arSize);
        for j := 1 to m do
        begin
            Read(f, ar[arSize, j]);
            Write(ar[arSize, j], #9);
        end;
        WriteLn;
    end;
    Close(f);
    WriteLn; WriteLn; ar2Size := 0;
    for i := 1 to arSize do
        for j := 1 to m do
            if (ar[i, j] > 0)
            then
            begin
                Inc(ar2Size);
                ar2[ar2Size] := ar[i, j];
                Write(ar2[ar2Size], ' ');
            end;
    WriteLn;
    if (ar2Size = 0)
    then
        WriteLn('Polozhitelnyh elementov net.')
    else
    begin
        maxID := 1;
        for i := 2 to ar2Size do
            if (ar2[i] > ar2[maxID])
            then
                maxID := i;
        Write('maxID: ');
        for i := 1 to ar2Size do
            if (ar2[maxID] = ar2[i])
            then
                Write(i, ' ');
    end;
end.

тоже самое, но с динамическими массивами. если компилятор скушает.

Pascal

const
    m = 5;
 
var
    ar : Array Of Array[1..m] Of Integer;
    ar2 : Array Of Integer;
    j : 1..m;
    i, maxID : Word;
    f : Text;
 
begin
    Assign(f, 'f.txt'); Reset(f);
    SetLength(ar, 0);
    while ((Not(EoF(f))) And (Length(ar) <= 100)) do
    begin
        SetLength(ar, Length(ar) + 1);
        for j := 1 to m do
        begin
            Read(f, ar[Length(ar) - 1, j]);
            Write(ar[Length(ar) - 1, j], #9);
        end;
        WriteLn;
    end;
    Close(f);
    WriteLn; WriteLn; SetLength(ar2, 0);
    for i := 0 to Length(ar) - 1 do
        for j := 1 to m do
            if (ar[i, j] > 0)
            then
            begin
                SetLength(ar2, Length(ar2) + 1);
                ar2[Length(ar2) - 1] := ar[i, j];
                Write(ar2[Length(ar2) - 1], ' ');
            end;
    WriteLn;
    if (Length(ar2) = 0)
    then
        WriteLn('Polozhitelnyh elementov net.')
    else
    begin
        maxID := 0;
        for i := 1 to Length(ar2) - 1 do
            if (ar2[i] > ar2[maxID])
            then
                maxID := i;
        Write('maxID: ');
        for i := 0 to Length(ar2) - 1 do
            if (ar2[maxID] = ar2[i])
            then
                Write(i, ' ');
    end;
end.

@Tarick · 11.01.2015, 19:00 **[ТС]**

спасибо огромное ))))

@bormant · 12.01.2015, 11:09

JokeR.BY,
Разрешите позанудствовать?

Ошибки и недочёты есть. Например,

Pascal

14
15
16

    while ((Not(EoF(f))) And (arSize <= 100)) do
    begin
        Inc(arSize);

явно должно было быть

Pascal

14
15
16

    while ((Not(EoF(f))) And (arSize < 100)) do
    begin
        Inc(arSize);

Иначе возможна попытка записи в 101 элемент.

По поводу динамики, нерационально на каждом шаге цикла увеличивать массив на 1 строку. Раз уж читаете не более 100 строк (с учетом исправленной выше ошибки), сделайте SetLength(ar, 100) в начале, посчитайте по ходу чтения количество, SetLength(ar, arSize) в конце. Аналогично для ar2.

Добавлено через 24 минуты
И попытка "утрамбовать" задачку (имеется в виду номер максимального элемента в массиве C, по крайней мере из исходное задание прочитал именно так):

Pascal

const
  nmax=100; m=5;
var
  a: array [1..nmax,1..m] of Integer;
  c: array [1..nmax*m] of Integer;
  na, nc, j, jm: Integer;
begin
  Assign(input,'input.txt'); Reset(input);
  WriteLn('A=');
  jm:=1; {na:=0; nc:=0;}
  while not SeekEOF and (na<100) do begin
    Inc(na);
    for j:=1 to m do begin
      Read(a[na,j]); Write(a[na,j]:8);
      if a[na,j]>0 then begin
        Inc(nc); c[nc]:=a[na,j];
        if c[nc]>c[jm] then jm:=nc;
      end;
    end;
    ReadLn; WriteLn;
  end;
  WriteLn('C=');
  for j:=1 to nc do Write(c[j]:8); WriteLn;
  if nc>0 then WriteLn('Индекс Cmax = ',jm);
end.

Добавлено через 2 минуты
Если вывод исходного массива не нужен, убрать Write/WriteLn из строк 9, 14, 20.

Добавлено через 5 минут
Если же нужен порядковый номер максимального в A, то

Pascal

const
  nmax=100; m=5;
var
  a: array [1..nmax,1..m] of Integer;
  c: array [1..nmax*m] of Integer;
  na, nc, j, im, jm: Integer;
begin
  Assign(input,'input.txt'); Reset(input);
  WriteLn('A=');
  im:=1; jm:=1; {na:=0; nc:=0;}
  while not SeekEOF and (na<100) do begin
    Inc(na);
    for j:=1 to m do begin
      Read(a[na,j]); Write(a[na,j]:8);
      if a[na,j]>0 then begin
        Inc(nc); c[nc]:=a[na,j];
      end;
      if a[na,j]>a[im,jm] then begin
        im:=na; jm:=j;
      end;
    end;
    ReadLn; WriteLn;
  end;
  WriteLn('C=');
  for j:=1 to nc do Write(c[j]:8); WriteLn;
  if nc>0 then WriteLn('Номер Amax = ',(im-1)*m+jm);
end.

@JokeR.BY · 12.01.2015, 11:43

bormant, та да. упустил момент с проверкой количества. тогда и в случае с динамическим должно быть (arSize < 99).

по поводу динамики: смысл тогда делать динамический массив, если мы с ходу делаем тоже самое, что и в первом варианте?) вообще, динамикой поначалу я хотел сделать создание массива с, который был бы двумерным, но с разной длиной куска [1..m], то бишь массив, считанный из файла, но без отрицательных и нуля.

Не по теме:

а потом Остапа понесло в другую сторону.

@bormant · 12.01.2015, 12:15

Сообщение от JokeR.BY

по поводу динамики: смысл тогда делать динамический массив

Смысл может быть, например, такой:

Pascal

var
  a: array of Integer;
  na: Integer;
begin
  na:=0; SetLength(a,100);
  while not EOF do begin
    if na>=Length(a) then
      SetLength(a,Length(a)+Length(a) div 2);
    Read(a[na]); Inc(na);
  end;
...

@Tarick 1 / 1 / 0 Регистрация: 29.01.2013 Сообщений: 90
		1
	Из элементов введенного массива сформировать новый массив, содержащий положительные числа 11.01.2015, 15:36. Показов 878. Ответов 9 Метки нет (Все метки) Написать программу ввода массива целых чисел из текстового файла. Файл содержит не более 100 записей (строк). В одной строке размещено пять значений заданных чисел, разделённых пробелом. Из элементов введенного массива сформировать новый массив, содержащий положительные числа. Найти номер максимального элемента. 0

@JokeR.BY CAPITAL OF ROCK! 1281 / 708 / 982 Регистрация: 03.03.2010 Сообщений: 2,286
	11.01.2015, 16:00	2
	новый массив одномерный? 0

@Tarick 1 / 1 / 0 Регистрация: 29.01.2013 Сообщений: 90
	11.01.2015, 16:36 [ТС]	3
	Сообщение от JokeR.BY новый массив одномерный? видимо да ) 0

@JokeR.BY CAPITAL OF ROCK! 1281 / 708 / 982 Регистрация: 03.03.2010 Сообщений: 2,286
	11.01.2015, 17:12	4
	Tarick, это ваше задание, что значит "видимо"? 0

@Tarick 1 / 1 / 0 Регистрация: 29.01.2013 Сообщений: 90
	11.01.2015, 17:35 [ТС]	5
	Сообщение от JokeR.BY Tarick, это ваше задание, что значит "видимо"? Одномерный ...решите, пожалуйста ) 0

@Tarick 1 / 1 / 0 Регистрация: 29.01.2013 Сообщений: 90
	11.01.2015, 19:00 [ТС]	7
	спасибо огромное )))) 0

@JokeR.BY CAPITAL OF ROCK! 1281 / 708 / 982 Регистрация: 03.03.2010 Сообщений: 2,286
	12.01.2015, 11:43	9
	bormant, та да. упустил момент с проверкой количества. тогда и в случае с динамическим должно быть (arSize < 99). по поводу динамики: смысл тогда делать динамический массив, если мы с ходу делаем тоже самое, что и в первом варианте?) вообще, динамикой поначалу я хотел сделать создание массива с, который был бы двумерным, но с разной длиной куска [1..m], то бишь массив, считанный из файла, но без отрицательных и нуля. Не по теме: а потом Остапа понесло в другую сторону. 0

	12.01.2015, 12:15