Найти количество неотрицательных и произведение положительных элементов массива

@Misisipi · Регистрация: 02.03.2016

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

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

@JokeR.BY · 22.04.2016, 09:52

Pascal

var
    ar: Array[Byte] Of ShortInt;
    mult: Double;
    count, n, i: Byte;
begin
    repeat
        Write('Input n(>0)='); ReadLn(n);
    until (n > 0);
    count := 0; mult := 1;
    Randomize(); Write('Array:');
    for i := 0 to n - 1 do
    begin
        ar[i] := Random(199) - 99;
        Write(ar[i]:4);
        if (ar[i] > 0)
        then
            mult := mult * ar[i];
        if (ar[i] < 0)
        then
            Inc(count);
    end;
    WriteLn; WriteLn('mult=', mult:0:0); Write('count=', count);
end.

@Misisipi 2 / 2 / 0 Регистрация: 02.03.2016 Сообщений: 24
		1
	Найти количество неотрицательных и произведение положительных элементов массива 22.04.2016, 09:35. Показов 1696. Ответов 1 Метки нет (Все метки) Найти количество неотрицательных и произведение положительных элементов массива. 0

Опции темы

Найти количество неотрицательных и произведение положительных элементов массива

Решение