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

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 moped(m,n:integer;var y:m);

var i,j,c,k:integer; X:mas;

begin k:=0; writeln('введите величину С='); readln(c);

for j:=1 to n do x[j]:=0;

for j:=1 to n do

for i:=1 to m do

if y[i,j]>c then begin X[j]:=1; k:=k+1; end;

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

for j:=1 to n do write(X[j],' ');

writeln;

writeln('число элементов матрици превышающих число ',c,' равно ',k)

end;

begin

vvod(2,5,A);moped(2,5,A);readln;

end.

Задача 3.

Условие: Дан массив A(5,5). Изменить часть матрицы, находящуюся под главной диагональю следующим образом: если элемент A[i,j] этой части матрицы больше элемента A[j,i], то задать элементу A[i,j] новое значение, равное полу сумме двух этих элементов.

Программа:

program S2_Z3;

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

var A:m;

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

var i,j: integer;

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