Лабораторная работа №5. Приложение Д (продолжение)
for i:=1 to m do begin If MAM[i,j]<0 then Sum[j]:=Sum[j]+MAM[i,j]; end; write (Sum[j],''); end;writeln; Min:=Sum[j];jmin:=j; for j:=1 to k do if Sum[j] <> Min then begin Min:=Sum[j];jmin:=j; end; writeln (' Минимальная сумма =',Min,' в столбце',jmin); readln; readkey; end.
Приложение Д (продолжение) Результат тестирования программы№4(2)
Министерство образования и науки РФ Кузнецкий институт информационных и управленческих технологий Филиал ПГУ Кафедра ЕН и ТД ОТЧЕТ ПО ЛАБОРАТОРНЫМ РАБОТАМ По дисциплине «Информатика»
Выполнил: студент гр. 10кр1 Шиняев Н.Н. Принял: ст.преподователь Кафедры ЕН и ТД Мордвинкина М. В.
Лабораторная работа №5
|
