Delphi-Help

Главная Статьи Массивы В массив А[N] занесены натуральные числа. Найти произведение чётных по номеру элементов.

В массив А[N] занесены натуральные числа. Найти произведение чётных по номеру элементов.

Оцените материал
(1 Голосовать)


В массив А[N] занесены натуральные числа. Найти произведение чётных по номеру элементов.

const n=5;
 
procedure TForm1.Button1Click(Sender: TObject);
var Mas:array[0..n] of Integer;
    i:Integer;
    dob:Integer;
begin
 
dob:=1;
for i:=0 to n do                   //Заносим значения в массив
    Mas[i]:=StrToInt(StringGrid1.Cells[i,0]);
 
for i:=0 to n do
 if (i mod 2 =1 ) then         //Проверка на четность номера
     dob:=dob*mas[i];
 
Label1.Caption:='Добуток='+IntToStr(dob);
end;
Прочитано 9924 раз

Авторизация



Счетчики