Program vagoni; var a: array[1..15] of real; b: array[1..15] of real; c: array[1..15] of real; i,m,q,j,d,n: integer; s,max_num, max_index: real; begin n: =15; m: =10; q: =50; writeln('vvedite massy vagonov sostava m sostoyashego iz 15 vagonov'); s: =0; begin for i: =1 to n do begin write('vagon_',i,'-> '); readln(a[i]); end; end; writeln(' '); writeln('vse vagoni: '); for i: =1 to n do writeln('vagon_',i,'=',a[i],'tonn'); writeln(' '); writeln(' '); writeln('porojnie vagoni: '); for i: =1 to n do begin if (a[i] < = m) then writeln('porojniy vagon=', i); end; writeln(''); writeln('grujenie vagoni: '); for i: =1 to n do begin if (a[i] > m) then s: =s+a[i]; if (a[i] > m) then writeln('grujeniy vagon=', i); end; writeln('summa mass grujenih vagonov: ', s); if s> q then writeln('previshenie massy! sostav ne mojet bit sformirovan') else begin writeln; writeln('noviy sostav: '); j: =1; d: =1; for i: =1 to n{-1} do if a[i] > m then begin b[j]: =a[i]; writeln('vagon_',j,'=',b[j],'tonn'); j: =j+1; end else begin c[d]: =a[i]; d: =d+1; end; end; begin writeln(' '); writeln('ostatok: '); d: =d-1; while d> 0 do begin writeln('vagon_',d,'=',c[d],'tonn'); d: =d-1; end; end; writeln(' '); begin max_index : = 1; max_num : = b[1]; for i : = 2 to j do if b[i] > max_num then begin max_index : = i; max_num : = b[i]; end; writeln('maksimalnaya massa vagona sostava b=',max_num,' tonn', ' ego nomer: ',max_index); end; end. вот программа нужно чтоб формировался состав б в любом случае но не превышал 50 тонн, а остальные груженые вагоны вывести в остаток, и среди вагонов состава б найти вагон с максимальной массой

157

275

Посмотреть ответы 2

Ответы на вопрос:

Deer22

Информатика

4,4(9 оценок)

Var a, b, c: array[1..15] of real; i, m, max_weight, b_n, c_n, n, max: integer; s: real; begin n : = 15; m : = 10; max_weight : = 50; writeln('введите массы состава ', m, ' состоящего из ', n, ' вагонов'); for i : = 1 to n do begin write('масса вагона № ', i, ' = '); readln(a[i]); end; writeln(); writeln('все вагоны: '); for i : = 1 to n do writeln('вагон №', i, ' = ', a[i], ' тон'); writeln(); writeln('порожние вагоны: '); for i : = 1 to n do if (a[i] < = m) then writeln('вагон №', i); writeln(); s : = 0; writeln('груженные вагоны: '); for i : = 1 to n do if (a[i] > m) then begin s : = s + a[i]; writeln('вагон №', i); end; writeln('сумма масс груженных вагонов = ', s); {// if s > max_weight then begin // writeln('превышение массы! состав не будет сформирован'); // exit; // end; } writeln; writeln('новый состав: '); s : = 0; for i : = 1 to n do if (a[i] > m) and (s + a[i] < = max_weight) then begin b_n : = b_n + 1; s : = s + a[i]; b[b_n] : = a[i]; writeln('вагон №', b_n, ' = ', b[b_n], ' тон'); end else begin c_n : = c_n + 1; c[c_n] : = a[i]; end; writeln(); writeln('остаток: '); for i : = 1 to c_n do writeln('вагон №', i, ' = ', c[i], ' тон'); writeln(); max : = 1; for i : = 1 to b_n do if b[i] > b[max] then max : = i; writeln('максимальная масса в составе: вагон №', max, ' = ', b[max], ' тон'); end.