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

icon14.02.2019, icon9 Клас / Інформатика, icon37 681, icon0



§ 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;


iconГДЗ 9 клас Інформатика Підручник Ранок 2017 Бондаренко Ластовецький Пилипчук Шестопалов
Якщо помітили в тексті помилку, виділіть її та натисніть Ctrl + Enter
Схожі публікації
У даній публікації ще немає коментарів. Хочете почати обговорення?

Реклама
Предмет, до якого ви найчастіше використовуєте ГДЗ?
Ми в соціальних мережах
Хмаринка тегів