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

Презентация:



Advertisements
Похожие презентации
Двумерные массивы Решение задач из сборника «Задачи по программированию» под редакцией С. Окулова.
Advertisements

5.Дана матрица А и вектор Х соответствующих размерностей. Нечетные строки матрицы заменить элементами вектора Х. Результаты работы: n=4 m=
Тема: « Вставка- удаление элементов массива » :18:06.
Решение задач с использованием массивов
const n=10; var a:array[1..n] of integer; i,j,c,b,k:integer; begin randomize; for i:=1 to n do begin a[i]:=random(11)-5;write(a[i]:5) end;writeln;
PROGRAM example1; const m=100; var a : ARRAY [1.. m] of INTEGER; i,k,n,q : INTEGER; BEGIN readln (n); randomize; WRITELN('Полученный массив:' ); FOR i.
Тема: «Понятие квадратная матрица» :17:47.
Индекс – величина, характеризующая положение элемента, относительно начала массива. МАССИВЫ Конечная, упорядоченная по номерам совокупность значений, объединенных.
Одномерные массивы Решение задач. Табличный способ организации данных Одномерные и двумерные массивы.
Задача: определить является ли простым заданное число.
Тема: Нахождение минимального и максимального элемента в массиве.
1 Индекс – величина, характеризующая положение элемента, относительно начала массива. МАССИВЫ Конечная, упорядоченная по номерам совокупность значений,
Организация данных в виде массива. Массив - это упорядоченный набор фиксированного количества некоторых значений, называемых элементами массива. Каждый.
Работа с одномерными массивами Урок информатики 9 кл.
Чтобы найти максимальный элемент в массиве и потом производить с ним какие-либо действия, нужно узнать его номер (индекс - I). Для этого вначале будем.
Проверка пройденного материала. Исправьте ошибки в решении задачи: заполнить и вывести массив W(3) вещественных чисел Program Mass; Var b:Array[1..10]
1 Автор разработки: Розанова Татьяна Аркадьевна, учитель информатики МОУ СОШ 2 города Кинешмы Ивановской области 2011 – 2012 учебный год Автор разработки:
1 Случайные числа на языке Паскаль Тип величины Диапазон значений Паскаль Веществен ный [ 0, 1 ]x : = random [ 0, a]x : = random * a [ a, b ]x : = random.
Чтобы найти максимальный элемент в массиве и потом производить с ним какие-либо действия, нужно узнать его номер (индекс - I).Чтобы найти максимальный.
Шутилина Л.А., A[1,1]A[1,2]A[1,3]A[1,4]A[1,5] A[2,1]A[2,2]A[2,3]A[2,4]A[2,5] A[3,1]A[3,2]A[3,3]A[3,4]A[3,5] A[4,1]A[4,2]A[4,3]A[4,4]A[4,5]
Транксрипт:

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; for i:=1 to n div 2 do for j :=1 to m do begin z:=a[i, j]; a[i, j]:= a[n-i+1,j]; a[n-i+1,j]:=z; end ; writeln; for i:=1 to n do begin for j:=1 to m do write(a[i, j]:3); writeln; end; 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 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; if k 0 {если количество нечетных элементов не равно нулю,} then b [ j ]:= s / k ; {то в j элемент массива b записываем среднее арифметическое значение нечетных элементов j столбца массива a } end; writeln( Вывод массива b); for j:=1 to m do write(b[ j]:5:3); End.