Program a3




НазваниеProgram a3
Дата конвертации20.02.2013
Размер444 b.
ТипПрезентации


3. Дана прямоугольная матрица, элементами которой являются целые числа. Поменять местами ее строки следующим образом: первую строку с последней, вторую с предпоследней и т.д.

program a3;

var a: array [1..10, 1..10] of integer;

z, n, m, i, j: integer;

begin read( n , m );

for i:=1 to n do begin

for j:=1 to m do begin

a[i, j]:=random(10);

write(a[i, j]:3);

end ; writeln; end;

4. Дана прямоугольная матрица, элементами которой являются целые числа. Для каждого столбца подсчитать среднее арифметическое значение его нечетных элементов и записать полученные данные в новый массив.

program a4;

var a,b: array [1..10, 1..10] of integer; b: array [1..10, 1..10] of real;

s,k, n, m, i, j: integer;

begin

read( n , m );

for i:=1 to n do begin

for j:=1 to m do begin

a[i, j]:=random(10);

write(a[i, j]:3);

end ; writeln; end;

for j:=1 to m do

for j:=1 to m do

begin {для каждого j -го столбца}

s :=0; {обнуляем сумму нечетных элементов столбца}

k :=0; {обнуляем количество нечетных элементов столбца}

b [ j ]:=0; {устанавливаем начальное значение j элемента массива b }

{во внутреннем цикле находим сумму и количество нечетных элементов j -го столбца}

for i:=1 to n do

if a[i, j] div 2 <> 0

then begin s:=s+a[i, j]; k:=k+1;

end;



Похожие:

Program a3 iconProgram prim3; program prim3
В заданном числовом промежутке ([20;50]∩[150;200]) найти числа, кратные 6, и посчитать их количество
Program a3 iconProgram a1; program a1; var P,A,B,C: integer

Program a3 iconUndersök vilka program som visas på ryska tv-kanaler. Sök reda på ett program som du vill se från varje kanal

Program a3 iconProgram n1

Program a3 iconProgram

Program a3 icon* Jacobi-1 program */ /* Jacobi-1 program *

Program a3 iconProgram graf; Program graf

Program a3 iconHoliday Program 2005 Techniques of Teaching

Program a3 iconC:\Program Files\Intel\Composerxe-2011 \Documentation\en us\mkl\mkl userguide\ index htm

Program a3 iconScientific Visualization hpc school July 2009, Moscow Tiled Images
Строит изображения со спутников Defense Meteorological Satellite Program на поверхности Земли
Разместите кнопку на своём сайте:
dok.opredelim.com


База данных защищена авторским правом ©dok.opredelim.com 2015
обратиться к администрации
dok.opredelim.com
Главная страница