ГДЗ Інформатика 9 клас. Підручник [Бондаренко О.О., Ластовецький В.В.] 2017
14.02.2019,
39 573,
0
§ 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;
Назад
ГДЗ 9 клас Інформатика Підручник Ранок 2017 Бондаренко Ластовецький Пилипчук Шестопалов
Якщо помітили в тексті помилку, виділіть її та натисніть Ctrl + Enter
![ГДЗ Природознавство 5 клас. Підручник [Ярошенко О.Г., Бойко В.М.] 2018](/uploads/posts/2019-04/1555779316_5_p_y_u2018.jpg "ГДЗ Природознавство 5 клас. Підручник [Ярошенко О.Г., Бойко В.М.] 2018")
![ГДЗ Основи правознавства 9 клас. Підручник [Наровлянський О. Д.] 2017](/uploads/posts/2019-02/1550928122_9k_p_n_2017.jpg "ГДЗ Основи правознавства 9 клас. Підручник [Наровлянський О. Д.] 2017")
![ГДЗ Українська мова 8 клас. Підручник [Глазова О.П.] 2021](/uploads/posts/2021-10/1633720388_8k_y_g_2021.jpg "ГДЗ Українська мова 8 клас. Підручник [Глазова О.П.] 2021")
![ГДЗ Вступ до історії 5 клас. Підручник [Гісем О.В.] 2018](/uploads/posts/2019-07/1564163269_5k_i_h_2018.jpg "ГДЗ Вступ до історії 5 клас. Підручник [Гісем О.В.] 2018")