then

begin

minCol[j].value := arr[i][j];

minCol[j].y := i;

end;

if(arr[i][j]>maxCol[j].value)

then

begin

maxCol[j].value := arr[i][j];

maxCol[j].y := i;

end;

end;

end;

Программа разработана для ПЭВМ типа IBMPC и отлажена в среде Turbo-Pascal.

Программа почти полностью соответствует приведенной ниже блок-схеме.

3.2 Блок-схема программы

3.3 Результаты расчета

После компиляции и запуска программы произведено задание исходных данных и получен требуемый результат.

Экран работы программы имеет вид:

литература

1. Гладкий, А.А. Excel. Трюки и эффекты [Текст]/ А.А. Гладкий. – СПб.: Питер, 2006. – 368 с.: ил.

2. Информатика и информационные технологии [Текст]: учебное пособие/ под ред. Ю.Д. Романовой. – 3-е изд., перераб. и доп. – М.: Эксмо, 2008. – 592 с.

3. Информатика:Практикум по технологии работы на компьютере [Текст]/ под ред. Н.В. Макаровой. - 3-е изд., перераб. - М.: Финансы и статистика, 2005. - 256 с.: ил.

4. Немнюгин, С.А. Turbo Pascal. Программирование на языке высокого уровня [Текст]/ С.А. Немнюгин. - СПб.: Питер, 2003. - 544 с.

5. Симонович, С.В. Информатика: Базовый курс [Текст]: учебник/ С.В.Симонович. – М.: АСТ, 2002. – 640 с.

6. Соболь, Б.В.Информатика [Текст]: учебник/ Б.В. Соболь. - 3-е изд., доп. и перераб. - Ростов н/Д: Феникс, 2007. — 446 с.

7. Степанов, А.Н. Информатика [Текст]: учебник для вузов/ А.Н. Степанов. - 4-е изд. - СПб.: Питер, 2006. — 684 с.

8. Угринович, Н.Д. Информатика и информационные технологии [Текст]: учебник для 10-11 классов/ Н.Д. Угринович. – М.: БИНОМ. Лаборатория знаний, 2003. – 512 с.: ил.