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

а) For i := 1 to 5 do A[i] := –А[i];

б) For i := 1 to 5 do If А[i] mod 3 = 0 Then А[i] := А[i] div 3;

в) For i := 1 to 5 do If і mod 2 = 0 Then А[i] := 0;

г) S := 0; For i := 1 to 5 do S := S + А[i];

д) P := 1; For i := 1 to 5 do If А[i] <= 5 Then P := P * А[i];

е) K := 0; For i := 1 to 5 do If А[i] > 5 Then K := K + 1;

а) ввести з клавіатури значення елементів масиву;

б) знайти добуток елементів масиву;

в) знайти мінімальний елемент масиву;

г) знайти кількість додатних елементів масиву.

Відкрийте середовище Lazarus і створіть новий проект, розмістіть на екранній формі об'єкти, як на скріншоті, надайте значенням їхнім властивостям.

Створіть процедуру опрацювання події натиснення кнопки Знайти елемент. У вікні редактора коду опишіть змінні, які будуть використовуватись у проекті: numbers - масив цілих чисел, який заповнюється випадковим чином від 1 до 100, k - ціле число, яке вводиться в поле Edit1 і шукається в масиві, i - номер (індекс) елемента масиву.

var i, k: integer;

numbers : array [1..50] of integer;

У вікні редактора коду в тілі програми запишіть команди для очищення обох полів Memo, зберігання значення шуканого числа, введеного у поле Edit1, у змінну k, заповнення масиву за допомогою функції генерування цілих чисел і запису елементів масиву у поле Memo1.

Randomize;

Memo1.Clear; // очищення поля Memo1

Memo2.Clear; // очищення поля Memo2

k := StrToInt(Edit1.Text);

for i := 1 to 50 do numbers[i] := Random(100); // заповнення масиву випадковими цілими числами

for i := 1 to 50 do Memo1.Lines.Add(IntToStr(numbers[i])); // додавання елементів масиву у Memo1

Доповніть програму, введенням наступного коду, який здійснює пошук у полі Memo1 рядка із значенням введеного числа k і виводить інформацію про результати пошуку у поле Memo2 та виконайте проект.

for i := 0 to Memo1.Lines.Count - 1 do

begin

if StrToInt(Memo1.Lines[i]) = k

then

Memo2.Lines.Add('Знайдено в рядку ' + IntToStr(i))

else

Memo2.Lines.Add('Не знайдено в рядку ' + IntToStr(i))

end;