Программирование. Pascal ABC. Двумерные массивы


Чтобы посмотреть презентацию с оформлением и слайдами, скачайте ее файл и откройте в PowerPoint на своем компьютере.
Текстовое содержимое слайдов:

Работа со строками и столбцамиДвумерные массивы Задача № 0Сформируйте массив целых чиселиз диапазона от – 15 до 45 размерностью 5 x 6.program z;var a:array[1..5,1..6] of integer; i,j:integer;begin randomize; for i:=1 to 5 do for j:=1 to 6 do a[i,j]:=random(61)-15; for i:=1 to 5 do begin for j:=1 to 6 do write(a[i,j]:4); writeln; end;end.{5940675A-B579-460E-94D1-54222C63F5DA}i,j1234561-83112-3-9222828-13447393-1226-337-10-7433171962740526-1317-10440Заполнение массива в памяти компьютераВывод массива из памяти на экран









Задача № 1Вычислите сумму элементов третьей строки.program z;var a:array[1..5,1..6] of integer; i,j,s:integer;begin //заполнение //вывод массива s:=0; for j:=1 to 6 do s:=s+a[3,j]; writeln(‘Сумма = ’,s);end.см. задачу № 0{5940675A-B579-460E-94D1-54222C63F5DA}i,j1234561-83112-3-9222828-13447393-1226-337-10-7433171962740526-1317-10440//по столбцамзафиксированобудет меняться








Задача № 2Замените четные элементы четвертого столбца на противоположные.program z; //объявлениеbegin //заполнение //вывод массива for i:=1 to 5 do if a[i,4] mod 2 =0 then a[i,4]:=-a[I,4]; //вывод массиваend.{5940675A-B579-460E-94D1-54222C63F5DA}i,j1234561-83112-3-9222828-13447393-1226-337-10-7433171962740526-1317-10440{5940675A-B579-460E-94D1-54222C63F5DA}i,j1234561-83112-3-9222828-13-447393-1226-337-10-74331719-62740526-131710440//по строкам





Задача № 3Найдите максимальный элемент в последней строке.program z; //объявление max:integer;begin //заполнение //вывод массива max:=a[5,1]; for j:=2 to 6 do if a[5,j] > max then max:= a[5,j]; writeln(‘Максимальное = ’,max);end.{5940675A-B579-460E-94D1-54222C63F5DA}i,j1234561-83112-3-9222828-13447393-1226-337-10-7433171962740526-1317-10440





Задача № 4Переставьте местами первый и пятый столбец.program z; //объявление t:integer;begin //заполнение //вывод массива for i:=1 to 5 do begin t:=a[i,1]; a[i,1]:=a[i,6]; a[i,6]:=t; end; //вывод массиваend.{5940675A-B579-460E-94D1-54222C63F5DA}i,j1234561-83112-3-9222828-13447393-1226-337-10-7433171962740526-1317-10440{5940675A-B579-460E-94D1-54222C63F5DA}i,j123456123112-3-9-823928-13447283-726-337-10-1244017196273350-1317-104426







Задача № 5Отсортируйте по возрастанию вторую строку.program z; //объявление k,t:integer;begin //заполнение //вывод массива for j:=1 to 5 do for k:=j+1 to 6 do if a[2,j]>a[2,k] then begin t:=a[2,j]; a[2,j]:=a[2,k]; a[2,k]:=t; end; //вывод массиваend.{5940675A-B579-460E-94D1-54222C63F5DA}i,j1234561-83112-3-9222828-13447393-1226-337-10-7433171962740526-1317-10440{5940675A-B579-460E-94D1-54222C63F5DA}i,j123456123112-3-9-82-137282839443-726-337-10-1244017196273350-1317-104426








Задания для самостоятельной работыВычислить произведение нечетных элементов второго столбца.Прибавить 7 к каждому элементу первой строки.Найти минимальный элемент в первом столбце.Переставить местами вторую и четвертую строки.Отсортировать по убыванию последний столбец.




Задания по двумерным массивам
Опишите, заполните и выведите на экран массив 7*7, состоящий из целых случайных чисел в диапазоне от – 20 до 30.
Найдите сумму элементов, кратных трем.
Определите количество положительных элементов.
Удвойте отрицательные элементы массива.
Определите максимальный элемент на главной диагонали.
Обнулите строку и столбец, на пересечении которых находится минимальный элемент.
Найти количество нечетных элементов, расположенных над главной диагональю.
Найти сумму нечетных элементов побочной диагонали.
Определить количество отрицательных чисел в главной диагонали.
Заменить нулем минимальный элемент.
Прибавить 10 к элементам, находящимся на периметре матрицы.

Приложенные файлы