ПОДСКАЖИТЕ что не правильно в задаче
Вот задание
Даны сведения о массах 60 грузов – массив А [60]
1) определить самый легкий груз, его порядковый номер.
2) Сформировать новый массив В [I] из грузов, имеющих массу менее 5 т.
3) Определить их суммарную массу.
4) Определить число грузов массива А, имеющих массу 8 т, их порядковые номера.
| Код |
program z2;
uses crt;
const n=6;
var A,B:array[1..n] of integer;
nmin,i,S,S8,i5:integer;
min:real;
begin
clrscr;
for i:=1 to n do
begin
writeln('vvedite maccy ',i,' - go gruza');
readln(A[i]);
end;
min:=A[i];
nmin:=1;
for i:=1 to n do
if A[i]<min then
begin
min:=A[i];
nmin:=i;
writeln('camii legkii gruz vecit ',min:3:2);
writeln('ego nomer ',nmin);
end;
i5:=0;
for i:=1 to n do begin
if A[i]<5 then
begin
i5:=i5+1;
B[i5]:=A[i];
for i:=1 to i5 do
write('novii massiv iz macc <5t ',B[i]);
for i:=1 to n do
writeln(i5);
end;
end;
begin
S:=0;
S:=S+B[i];
writeln('macca vsex gruzov-> ',S);
end;
begin
for i:=1 to n do
if A[i]=8 then begin
S8:=0;
S8:=S8+1;
writeln('gruzov maccoi 8t',S8);
writeln('igo nomer-> ',i);
end;
end;
end.
|
ВЫВОДИТ НОВЫЙ МАССИВ С ОШИБКОЙ
|