Реферат: 10 задач с решениями программированием на Паскале

Условие: Найти среднее арифметическое общей совокупности элементов тех строк заданной матрицы, последний элемент которых равен 1.

Программа:

program S2_Z1;

type m=array[1..100,1..100] of integer;

var A:m;

procedure vvod(m,n:integer;var x:m);

var i,j: integer;

begin writeln('введите элементы массива');

for i:=1 to m do

for j:=1 to n do

read(x[i,j]);

end;

procedure arf(m,n:integer;var x:m);

var i,j,s:integer;sr:real;

begin

for i:=1 to m do begin s:=0; sr:=0;

if x[i,n]=1 then begin

for j:=1 to n do

s:=s+x[i,j]; sr:=s/n;

writeln ('среднее арифметическое ',i,' строки равно ',sr:5:2); end; end;

end;

begin

vvod(3,3,A);

arf(3,3,A);

end.

Задача 2.

Условие: Получить массив Х(n) по правилу: Х_i =1, если в i-м столбце заданной матрицы есть хотя бы один элемент превышающий заданное значение С, иначе X_i =0. Найти общее число элементов, больших С.

Программа:

program S2_Z2;

type m=array[1..100,1..100] of integer; mas=array[1..100] of integer;

--> ЧИТАТЬ ПОЛНОСТЬЮ <--