Program arr;

var
   a: array[1..15] of integer;
   count,count_odd,num,sum,mult: integer;

begin
count := 1;
count_odd := 1;
num := 3;
sum := 0;
mult := 1;
while count <= 15 do
    begin
      a[count] := num;
      count := count + 1;
      num := num + 3;
    end;
while count_odd <= 15 do
    begin
      sum := sum + a[count_odd];
      mult := mult * a[count_odd];
      count_odd := count_odd + 2;
    end;
writeln('Массив из 15 элементов: 3, 6, 9, ..., 45');
writeln('Сумма элементов с нечетными индексами: ', sum);
writeln('Произведение элементов с нечетными индексами: ', mult);
end.

0 0

4 года назад

Помогите! прошууу!!

swett

Ответ:

9) 4 10 )2

Объяснение:

если не правильно зарание прости

0 0

3 года назад

Дан массив из десяти целых чисел . определите, сколько элементов этого массива имеют максимальное значение. паскаль

kaftas [42]

Var
a: array[1..10] of integer;
m, i,s: integer;

begin
randomize;
for i := 1 to 10 do
begin
a[i] := random(+10) + 1;
if a[i] > m then m := a[i];
end;
for i := 1 to 10 do
begin
if a[i]=m then s:=s+1;
end;
writeln(s);
end.

0 0

4 года назад