ГДЗ Інформатика 9 клас. Підручник [Бондаренко О.О., Ластовецький В.В.] 2017

14.02.2019, icon

9 Клас / Інформатика, icon

39 907,

Інші завдання дивись тут...

§ 39. Опрацювання двовимірних масивів даних (Сторінка 217)

Питання для самоперевірки

1. Запишіть оператор для обчислення суми елементів першого рядка масиву Mas[1..5, 1..5].

var Tabl: array[1..5, 1..5] of Integer; i, j, Sum: Integer; begin Sum := 0;

For j := 1 to 5 do

Sum := Sum + Tabl[1,j]; // додавання елементів першого рядка Editl.Text := IntToStr(Sum);

end;

2. Запишіть оператор для обчислення суми елементів головної діагоналі масиву Mas[1..5, 1..5].

var Tabl: array[1..5, 1..5] of Integer; i, j, Sum: Integer;

begin

Sum := 0;

For і := 1 to 4 do

Sum := Sum + Tabl[i,i]; // додавання елементів з однаковими індексами

Editl.Text := IntToStr(Sum);

end;

3. Запишіть фрагмент програмного коду для заміни нулями парних елементів масиву Mas[1..5, 1..5].

var a:array [1..5] of real;

i,n:integer; p:real;

begin

clrscr;

write('Уведіть кількість елементів масиву');

readln(n); {Уведення n}

writeln('Уведіть значення елементів

масиву:');

for і:=1 to n do

begin

write('a[',i,']=');

readln(a[ I ]);

end;

p:=1; i:=2;

while i<=n do

begin

p:=p*a[ I ] ; i:=i+2;

end;

writeln('Добуток елементів таблиці з парними індексами дорівнює', р:0) ;

readln;

end.

4. Знайдіть максимальний елемент другого стовпця масиву A[1..4, 1..5].

// пошук позиції (індексу), що містить максимальне значення

float A[1..4, 1..5];

float max; // змінна, що містить максимум

int index; // позиція елементу, що містить максимальне значення

int i; // допоміжна змінна

// ввід масиву

// пошук максимуму

// встановити максимум як 1-й елемент масиву

index = 0;

max = A[1..4, 1..5];

for (i=1; i<5; i++)

if (max<A[i])

{

max = A[i]; // запам'ятати максимум

index = i; // запам'ятати позицію максимального елементу

}

5. Дано цілочисельний масив A[1..4, 1..5]. Напишіть фрагмент програмного коду, який реалізує створення одновимірного масиву В[1..5], елементи якого є сумами стовпців масиву А.

var Tabl: array[1..4, 1..5] of Integer;

B: array[1..5] of Integer; i, j, Max: Integer; begin

For j := 1 to 5 do begin // зовнішній цикл no стовпцях

Max := Tabl[l j];

For і := 2 to 4 do If Max < Tabl[i,j] Then Max := Tabl[(i,j)];

B(j) := Max;

ListBoxl. Items. Add (IntToStr(B [j])); // виведення B[j] end;

end;

Інші завдання дивись тут...