Question

СРОЧНО!! ДАМ МНОГО БАЛЛОВ
Масиви .Дано проект, який знаходить суму і кількість елементів масиву а, які більші за -7. Завдання: Виділити синім кольором розділ оголошення змінних. Виділити червоним кольором фрагмент програми, в якому описано введення елементів масиву. Виділити жовтим кольором фрагмент програми, в якому описано виведення результатів роботи програми. Змінити текст програми так, щоб знаходить добуток і кількість додатних елементів масиву a

procedure TForm1.Button2Click(Sender: TObject); var i, s, k: integer; a : array [0..9] of integer; begin for i:=0 to 9 do a[i]:=StrToInt(Memo1.Lines[i]); s:=0; k:=0; for i:=1 to 10 do if a[i]>-7 then begin k:=k+1; s:=s+a[i]; end; Label1.Caption := IntToStr(k); Label2.Caption := IntToStr(s); end;​

Answer 1

Відповідь:procedure TForm1.Button2Click(Sender: TObject);

var

i, positive_count, product: integer; // Оголошення змінних

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

begin

// Введення елементів масиву (червоний кольором)

for i := 0 to 9 do

a[i] := StrToInt(Memo1.Lines[i]);

// Обчислення кількості додатніх елементів та їх добутку (жовтий кольором)

positive_count := 0;

product := 1;

for i := 0 to 9 do

if a[i] > 0 then

begin

positive_count := positive_count + 1;

product := product * a[i];

end;

// Виведення результатів (синім кольором)

Label1.Caption := 'Кількість додатніх елементів: ' + IntToStr(positive_count);

Label2.Caption := 'Добуток додатніх елементів: ' + IntToStr(product);

end;

Пояснення:

<3