массив

[Jodu]

делал задание с массивом,часть задания сделал,вторая часть вообще не идет.

помогите пожалуйста.
а)исправить:
1.неправильно считает порядковые номера грузов массой>10тонн
б)сделать:
2.сформировать новый массив B[n] из грузов массой меньшей или раной 10 тонн.
3. Определить максимальную массу груза и его номер в массиве B.

program maccuB;
var
z:array[1..15] of real;
mg:real;
i,k,n,m:integer;
begin
for i:=1 to 15 do
begin
writeln ('vvedute maccy gryza do 30 tonn') ;
readln (z[i]) ;
end;
mg:=0;
for i:=1 to 15 do
mg:=mg+z[i] ;
writeln ('macca gryza', mg:9:2 );
m:=0;
n:=0;
for i:=1 to 15 do begin
if (z[i]>10) then begin
m:=m+1;
n:=n+1;
writeln ('nomepa gpyzov c maccou bolee 10 tonn  -  ',n);
end;
end;
writeln ('chuclo gryzov c maccou bolee 10 tonn  -  ',m);
end.

[Tayfun]

for i:=1 to 15 do begin
if (z[i]>10) then begin
m:=m+1;
n:=n+1;
writeln ('nomepa gpyzov c maccou bolee 10 tonn - ',n);
end;
end;

Тут у тебя должно выводить порядковый номер груза массо которого больше 10т, n у тебя считает количество таких грузов как и m, а не находит порядковый номер, в принципе n тут лишнее, код должен выглядень примерно так:

for i:=1 to 15 do begin
if (z[i]>10) then  begin
m:=m+1;
writeln ('nomepa gpyzov c maccou bolee 10 tonn - ',i);
end;
end;

[Tayfun]

то было раз... Добовляет в ентот код второе условие

for i:=1 to 15 do begin
if (z[i]>10) then  begin
m:=m+1;
writeln ('nomepa gpyzov c maccou bolee 10 tonn - ',i);
end;
end;

Теперь делаем модиффикацию(параллельно добавляя 3 задание) и получаем:

n:=0;
for i:=1 to 15 do begin
if (z[i]>10) then  begin
m:=m+1;
writeln ('nomepa gpyzov c maccou bolee 10 tonn - ',i);
end else begin
n:=n+1;
b[n]:=z[i];
if b[n]>max then begin max:=b[n]; k:=n; end;
end;
end;

Вот у тебя есть и массив B[n], max- максимальный его эллемент и его порядковый номер (k) в массиве B[n].

[Jodu]

1 часть исправлена.

2 чет пишет ошибку там где end else...
max нужно описыватЬ!?или паскаль понимает этот оператор?!

[Jodu]

подскажите как описать тот новый массив который нужно сформировать,ведь я не знаю сколько в нем получится элементов.и что делать с max?!описывать как integer?

в этой строчке ошибка:

end else begin
n:=n+1;
b[n]:=z[i];
if b[n]>max then begin max:=b[n]; k:=n; end;
end;
end;

[Alex21]

Вот тебе примерчик работа с Динамическим массивом.
Из первого массива A создается второй массив B, из значений меньших 10.

var
a:array[1..15] of real; //исходный массив
b:array of real; // новый массив
i,n:integer;
begin
  randomize;
  n:=0;
  for i:=1 to 15 do
  begin
    a[i]:=Random(50);
    if a[i]<10 then
    begin
    {задаем новый размер массива +1}
      SetLength(b,n+1);
      n:=n+1;
      b[n-1]:=a[i];
    end;
    writeln(a[i]:2:1);
  end;
  writeln('----------');
  for i:= 0 to n-1 do
  Writeln(b[i]:2:1);  // вывод
  readln;
end.

Свяжи это с тем, что привел Тайфун.

[Tayfun]

Проверь еще раз... У меня все прекрастно работает, а ты не пробовал в разделе описания переменных описать max и массив b-?

[Jodu]

спасибо за помощь...получилось сделать по другому, через константу n=15(т.к. в новом массиве не может быть больше элементов.)

Осталось найти максимальный элемент в новом массиве и его номер.сейчас добавлю то,что тайфун написал, если не получится,напишу...)

program maccuB;
uses crt;
const n=15;
var
z:array[1..15] of real;
b:array[1..n] of real;
mg:real;
i,k,m,s,n1:integer;
begin clrscr;
for i:=1 to 15 do
begin
writeln ('vvedute maccy ',i,' gryza do 30 tonn') ;
readln (z[i]) ;
end;
writeln ('ucxodnuu maccuB');
for i:=1 to 15 do
write (' ',z[i]:5:2);
writeln;
mg:=0;
for i:=1 to 15 do
mg:=mg+z[i] ;
writeln ('macca gryza', mg:9:2 );
n1:=0;
for i:=1 to 15 do
if (z[i]>10) then begin
s:=s+1;
writeln ('nomepa gpyzov c maccou bolee 10 tonn  -  ', i);
end else begin
n1:=n1+1;
b[n1]:=z[i];
end;
writeln ('noBuu maccu B[n1] -  ');
for i:=1 to n1 do
write (' ',b[i]:5:1);
writeln;

writeln ('chuclo gryzov c maccou >10 tonn  -  ',s);

end.

[Tayfun]

Уважаю что решаешь сам, если что вот рабочий код...

program maccuB;
uses crt;
var
b,z:array[1..15] of real;
max,mg:real;
i,k,n,m:integer;
begin
for i:=1 to 15 do
begin
writeln ('vvedute maccy gryza do 30 tonn') ;
readln (z[i]) ;
end;
mg:=0;
for i:=1 to 15 do
mg:=mg+z[i] ;
writeln ('macca gryza', mg:9:2 );
m:=0;
n:=0;
for i:=1 to 15 do begin
if (z[i]>10) then  begin
m:=m+1;
writeln ('nomepa gpyzov c maccou bolee 10 tonn - ',i);
end else begin
n:=n+1;
b[n]:=z[i];
if b[n]>max then begin max:=b[n]; k:=n; end;
end;
end;
writeln;
for i:=1 to n do write(b[i]:1:2,' ');
writeln;
writeln('MAKSIMALYNIY GRUZ->',max:1:2,' POZICIYA->',k);
readkey;
end.

[Jodu]

все работает,спасибо.


один вопросик
А что выполняет оператор readkey ?
п.с. у меня без него работает+)