Практична робота 15. «Знаходження сум та кількості значень елементів табличних величин за заданими умовами»

Увага! Під час роботи з комп’ютером дотримуйтеся правил безпеки та санітарно-гігієнічних норм.

Створіть у власній папці – папку Практична робота 15

Завдання 1

Створіть проєкт, у якому вводяться значення елементів табличної величини із 10 цілих чисел у багаторядковому текстовому полі, потрібно збільшити на 2 кожний невід’ємний елемент масиву. Збережіть проект у папці з іменем Практична 15.1, створеній у вашій папці.

procedure TForm1.Button1Click(Sender: TObject);

var a: array [0..9] of integer;

i: integer;

begin

for i := 0 to 9 do

a[i] := StrToInt(Memo1.Lines[i]); // напишіть коментар тут

for i := 0 to 9 do

if a[i]>=0 then a[i] := a[i]+2; // напишіть коментар тут

Memo2.Clear;

for i := 0 to 9 do

Memo2.Lines.Append(FloatToStr(a[i]));// напишіть коментар тут

end;

Завдання 2

Створіть проєкт, у якому вводяться значення елементів табличної величини із 10 дійсних чисел у багаторядковому текстовому полі, потрібно визначити перший елемент масиву, який не перевищує 2.5. Збережіть проект у папці з іменем Практична 15.2, створеній у вашій папці.

procedure TForm1.Button1Click(Sender: TObject);

var __: array [_____] of _____; i: integer; f: boolean;

begin

for i:=____ to ___ do

___[i] := _________Memo_.Lines[____]);

f := false;

for i := ___ to___ do

If ____ <= 2.5

Then begin   

f := _____; //

break;

end;

   If f = true Then Edit1._______:= FloatTo____(i)

                    Else Edit1.______ := 'Числа нема';

Завдання 3

На деякому підприємстві працює деяка кількість працівників, але не менше двох: директора і головного бухгалтера. Відомо також, що кількість працюючих не перевищує 100. Знаючи заробітну плату кожного працівника визначити середню зарплату на підприємстві. Збережіть проєкт у папці Практична 15.3 (скористайтесь завданням 7 с. 172 підручника)