Задание:
Дана матрица А(n,m). Определить суммы элементов тех строк матрицы, максимальные элементы которых не превышают среднего значения элементов матрицы.
Код программы на Delphi:
program podprogr;
{$APPTYPE CONSOLE}
uses
SysUtils;
const m=2;
n=3;
var mas:array[1..m,1..n] of real;
i,j:integer;
a : real;
function avg:real;
var sum:real;
begin
sum:=0;
for i:=1 to m do
for j:=1 to n do
sum:=sum+mas[i,j];
Result:=sum/(m+n+1);
end;
procedure max_sum;
var sum,max:real;
l,k:integer;
begin
for l:=1 to m do
begin
sum:=0;
max:=0;
for k:=1 to n do
begin
if max
sum:=sum+mas[l,k];
end;
if max<=avg then Writeln(l,' stroka. Summa=',sum);
end;
end;
begin
{ TODO -oUser -cConsole Main : Insert code here }
Writeln('Vvedite massiv');
for i:=1 to m do
for j:=1 to n do
Readln(mas[i,j]);
writeln(avg,'AVG');
Readln;
max_sum;
Readln;
end.
Функция нахождения среднего значения:
function avg:real;
var sum:real;
begin
sum:=0;
for i:=1 to m do
for j:=1 to n do
sum:=sum+mas[i,j];
Result:=sum/(m+n+1);
end;
Блок схемы:
Блок схема функции находящей среднее значение:
Блок схема процедуры находящей сумму:
Блок схема программы:
 |
Главная
Каталог файлов
