Вычислите произведение всех целых чисел, расположенных за минимальным значением. это в excel.. как объяснила мне препод: вводишь произвольное количество чисел(допустим 6 чисел), с формулы "min" вычислить и нужно перемножить все числа расположенные после этого минимального числа) например: 2 3 0 6 7 8 min=0 и нужно по какой-то функции перемножить числа 6 7 8 и если 0 поставить в другое место, числа после 0 все также перемножались)

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

procedure TForm1.Button1Click (Sender: TObject);

var a: array [1..8] of integer;

i, s: integer;

begin

for i: = 1 to 7 do a[i]:= StrToInt(Memo1.Lines[i - 1]);

s:= 0;

for i:= 1 to 7 do if a[i] < 0 then s:= s + a[i];

Label1. Caption: = IntToStr(s);

end;

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

procedure TForm1.Button1Click (Sender: TObject);

var a: array [1..8] of real;

i, k: integer;

begin

for i:= 1 to 8 do a[i]:= StrToFloat(Memo1.Lines[i - 1]);

k:= 0;

for i:= 1 to 8 do

if a[i] > 5 then k:= k + 1;

Label 1.Caption:= IntToStr(k);

end;