Подсчитать количество положительных элементов массива

@NickPaskalNoob · Регистрация: 08.10.2012

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

Заполнить массив случайными числами в интервале [-2;2] и подсчитать количество положительных элементов.
Требуется, полное тело задачи. Спс за ранее.

@NurlashKO · 19.11.2012, 16:50

Pascal

var
    n, i, ans :longint;
    a :array[1 .. 1000] of longint;
begin
    randomize;
    read(n);
        
    for i := 1 to n do begin
        a[i] := random(5) - 2;
        
        if (a[i] > 0) then
            ans := ans + 1;
 
        write(a[i], ' ');
    end;
    writeln;
    writeln(ans);
end.

@NickPaskalNoob 0 / 0 / 0 Регистрация: 08.10.2012 Сообщений: 13
		1
	Подсчитать количество положительных элементов массива 19.11.2012, 14:59. Показов 15145. Ответов 1 Метки нет (Все метки) Заполнить массив случайными числами в интервале [-2;2] и подсчитать количество положительных элементов. Требуется, полное тело задачи. Спс за ранее. 0

Опции темы

Подсчитать количество положительных элементов массива

Решение