вычислить произведение элементов массива с четными индексами и количество нулевых элементов .

@dillerbvv · Регистрация: 01.11.2015

Студворк — интернет-сервис помощи студентам

В одномерном массиве , с n действительных элементов , вычислить : произведение элементов массива с четными индексами и количество нулевых элементов .

@JokeR.BY · 28.11.2015, 13:22

Pascal

const
    eps = 0.001;
var
    ar: Array[Byte] Of Real;
    mult: Double;
    i, n, zeros: Byte;
begin
    Randomize();
    repeat
        Write('Input array"s length (>0): ');
        ReadLn(n);
    until (n > 0);
    zeros := 0;
    Write('Array:');
    for i := 0 to n - 1 do
    begin
        ar[i] := Random * 10 - 5;
        Write(ar[i]:8:3);
        if (Abs(ar[i]) < eps)
        then
            Inc(zeros);
    end;
    WriteLn; WriteLn('0 - ', zeros);
    if (n > 1)
    then
    begin
        mult := 1; i := 1;
        repeat
            mult := mult * ar[i];
            Inc(i, 2); //i := i + 2;
        until (i >= n);
        Write('Mult: ', mult:0:3);
    end
    else
        Write('No one element on even position!');
end.

@dillerbvv 0 / 0 / 0 Регистрация: 01.11.2015 Сообщений: 2
		1
	вычислить произведение элементов массива с четными индексами и количество нулевых элементов . 28.11.2015, 12:38. Показов 1801. Ответов 1 Метки нет (Все метки) В одномерном массиве , с n действительных элементов , вычислить : произведение элементов массива с четными индексами и количество нулевых элементов . 0

	28.11.2015, 13:22

Опции темы

вычислить произведение элементов массива с четными индексами и количество нулевых элементов .

Решение