Программирование элементов разветвляющейся структуры

ПЕНЗЕНСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ

Кафедра МО и ПЭВМ

Лабораторная работа № 8

Тема «Программирование элементов разветвляющейся структуры»

Выполнил студент гр. 02ТП1
Пахомов В. Е.

Проверил Ракова А. Н.

2003
Задание А.

Найти среднее арифметическое отрицательных элементов матрицы Z (n,m). Значения параметров n и m задаются следующим условием n12, m12.

Программа

uses crt;
var
z array[1..12,1..12] of integer;
m, n, b, sum, i, j integer;
begin
n =10;
m =12;
clrscr;
randomize;
b = 0;
sum = 0;
writeln(‘Исходный массив ‘);
for i = 1 to n do
for j = 1 to m do
begin
z[i, j] = random(60) — 30;
if z[i, j] < 0 then
begin
sum = sum + z[i, j];
inc(b);
end;
write(‘ ‘, z[i, j]);
end;
writeln;
writeln(‘Результат ‘,(sum / b) 2 6);
readkey;
end.

Блок-схема

Задание Б.

В матрице D (n,m) найти сумму элементов каждого столбца и результат разместить в вектор Z. Определить номер столбца, где эта сумма минимальна. Значения параметров n и m задаются и подчиняются следующему условию n12, m12.

Программа

uses crt;
var
n, m, b, i, j, sum, min integer;
d array[1..12,1..12] of integer;
z array[1..12] of integer;
begin
clrscr;
randomize;
b = 0;
min = 0;
n =12;
m =7;
writeln(‘Исходный массив ‘);
for i = 1 to n do
begin
for j = 1 to m do
begin
d[i, j] = random(60) — 30;
write(‘ ‘, d[i, j]);
end;
writeln;
end;
for j = 1 to m do
begin
sum = 0;
for i = 1 to n do
begin
sum = sum + d[i, j];
end;
z[j] = sum;
end;
min = 1;
for i = 1 to m do
if z[min] > z[i] then min = i;
writeln(‘Массив Z ‘);
for i = 1 to m do
writeln (‘ ‘,z[i]);
writeln(‘Номер столбца ‘,min);
readkey;
end.

Блок-схема