9 клас інформатика

var a: array [0..19] of real; s: real; n, i: integer; 
begin
n : Memo1.Lines.Count; 
for і := 0 to n - 1 do
a[i] StrToFloat(Memo1.Lines[i]); 
s := 0;
for і := 0 to n - 1 do
If a[i] \ 0 Then s := s + a[i];
Edit1.Text:=FloatToStr(s); 
end;
6. Збережіть оновлену версію проекту.
7. Запустіть проект на виконання.
8. Уведіть у перше багаторядкове текстове поле числа: 3,4; -7; 0; -13; 8,75; 23; 15. Виберіть кнопку Додатні елементи. Проаналізуйте отриманий результат.
9. Видаліть числа з першого багаторядкового текстового поля та введіть інші: -16; 98,43; 45; 0; 4 5; -1; 29; -2,67; 55. Виберіть кнопку Додатні елементи. Проаналізуйте отриманий результат.
10. Закрийте вікно виконання проекту.
11. Додайте до тексту процедури такий фрагмент:
k := 0;
for і := 0 to n - 1 do 
If a[i] \ 0 Then k := k + 1;
Edit2.Text := IntToStr(k);
а також змінну k до списку змінних типу integer у рядку var.
12. Збережіть оновлену версію проекту.
13. Уведіть свій набір чисел до першого багаторядкового текстового поля. Виберіть кнопку Додатні елементи. Проаналізуйте отримані результати.
14. Закрийте вікно виконання проекту.
15. Додайте до тексту процедури такий фрагмент:
sa := s/k;
Edit3.Text := FloatToStr(sa);
Memo2.Clear;
for і 0 to n - 1 do
If a[i] \ 0
Then Memo2.Lines.Append(FIoatToStr(a[і]));
а також змінну sa до списку змінних типу real у рядку var.
16. Збережіть оновлену версію проекту.
17. Уведіть свій набір чисел до першого багаторядкового текстового поля. Виберіть кнопку Додатні елементи. Проаналізуйте отримані результати. Зверніть особливу увагу на числа, що будуть виведені у друге багаторядкове текстове поле.
18. Закрийте вікно виконання проекту.
19. Закрийте вікно середовища Lazarus.