Составьте программу заполнения массива из 100 чисел случайными значениями из диапазона от -20 до 20. подсчитайте в этом массиве количество положительных и количество отрицательных значений.

168

311

Посмотреть ответы 3

Ответы на вопрос:

vadimbukov

Информатика

4,5(33 оценок)

// pascalabc.net 3.3, сборка 1611 от 06.01.2018 // внимание! если программа не работает, обновите версию! begin var a: =arrrandom(100,-20,20); a.println; writeln('положительных ',a.where(t-> t> 0).count, ', отрицательных ',a.where(t-> t< 0).count) end. пример 19 7 4 15 15 -16 20 6 1 7 -15 -13 3 0 -10 -17 -14 -16 12 -9 -16 -6 6 10 4 -17 -17 19 20 -12 -18 18 9 -14 -17 -11 6 4 -8 -20 -2 18 -3 -6 -6 -12 -8 -8 -11 13 -6 19 19 3 -14 4 -19 14 -10 11 -19 -19 6 -8 4 -13 -2 -4 -3 -19 -2 3 12 11 14 -13 18 -9 -4 -4 12 11 9 -14 14 -17 20 -15 20 -1 -12 13 -7 1 20 -4 -9 -16 10 -13 положительных 45, отрицательных 54

папапапппаапап

Информатика

4,4(43 оценок)

Program chisla; var mas: array [1..100] of integer; i,ko,kp: integer; begin ko: =0; kp: =0; randomize; for i: =1 to 100 do begin mas[i]: =random(41)-20; if mas[i]< 0 then ko: =ko+1; if mas[i]> 0 then kp: =kp+1; end; writeln('положительных элементов=',kp); writeln('отрицательных элементов',ko) end.

daha505daha505

Информатика

4,8(83 оценок)

Program xx; var a,b,c,x: real; begin readln(a,b,c); x: =)+sqrt(sqr(*a*/(2*a); writeln('x1 = ',x: 2: 2); x: =(-b-sqrt(sqr(b)-4*a*c))/(2*a); writeln('x2 = ',x: 2: 2); end.