Разработать программу на языке программированияTurbo Pascal :В массиве хранится 10 случайных чисел в интервале[ - 1, 1]?

Вика2970 10 нояб. 2020 г., 17:47:43

Const n = 10 ;

var a : array[1.

N] of real ;

k1, k2, i : integer ;

begin

Randomize ;

for i : = 1 to n do begin

a[i] : = 2 * random - 1 ;

write(a[i] : 7 : 2) ;

end ;

writeln ;

k1 : = 0 ; k2 : = 0 ;

for i : = 1 to n do

if a[i]>0 then k1 : = k1 + 1 else k2 : = k2 + 1 ;

writeln('k1 = ', k1, ' k2 = ', k2) ;

writeln('количество положительных / количество отрицательных = ', k1 / k2) ;

end.

Пример : - 0.

85 0.

53 - 0.

71 - 0.

14 0.

53 - 0.

17 0.

66 0.

21 0.

08 0.

63

k1 = 6 k2 = 4

количество положительных / количество отрицательных = 1.

5.

Manaienkova1984 10 нояб. 2020 г., 17:47:45

Program n1 ;

const n = 10 ;

var a : array[1.

N] of integer ;

i, ko, kp : integer ;

begin

randomize ;

ko : = 0 ;

kp : = 0 ;

writeln('иходный массив : ') ;

for i : = 1 to n do

begin a[i] : = random(3) - 1 ; write(a[i], ' ') ;

end ;

for i : = 1 to n do if a[i]0 then kp : = kp + 1 ;

writeln ;

writeln('кол - во пол : ', kp) ;

writeln('кол - во отр : ', ko) ;

writeln('в ', kp / ko, ' раз') ;

end.

Valeri2004 7 мар. 2020 г., 05:28:51 | 5 - 9 классы

Дан массив положительных и отрицательных чисел?

Дан массив положительных и отрицательных чисел.

Вывести количество положительных и отрицательных чисел, стоящих на нечетных местах.

Срочно!

Помошник107 3 февр. 2020 г., 19:47:01 | 10 - 11 классы

PascalОпределить среди 3 введенных чисел сумму отрицательных и положительных?

Pascal

Определить среди 3 введенных чисел сумму отрицательных и положительных.

Если больше сумма положительных, то найти разность первого и второго числа, а иначе найти произведение 3 - х чисел.

ТОЛЬКО ПРОГРАММА.

АрПлон 5 апр. 2020 г., 19:49:59 | 5 - 9 классы

Заполнить массив положительными и отрицательными числами на интервале от - 40 до 40 и найти сумму отрицательных чисел, случайным элементом под элементом 25?

Заполнить массив положительными и отрицательными числами на интервале от - 40 до 40 и найти сумму отрицательных чисел, случайным элементом под элементом 25.

Дураков 10 мая 2020 г., 14:18:20 | 10 - 11 классы

Найти количество положительных (отрицательных) чисел среди четырех чисел А, В, С, D?

Найти количество положительных (отрицательных) чисел среди четырех чисел А, В, С, D.

Sn2003 26 мар. 2020 г., 15:06:50 | 5 - 9 классы

Помогите написать в pascal?

Помогите написать в pascal.

Найти количество кратных 7 положительных и сумму кратных 3 нечетных отрицательных целых чисел в интервале от - 500 до 600.

Zhenk2011 20 июн. 2020 г., 10:41:16 | 10 - 11 классы

Напишите программу, запрашивающую у пользователя N целых чисел и выводящую на экран : а) количество нулей в последовательности ; б) количество положительных чисел ; в) количество отрицательных чисел?

Напишите программу, запрашивающую у пользователя N целых чисел и выводящую на экран : а) количество нулей в последовательности ; б) количество положительных чисел ; в) количество отрицательных чисел.

( На языке Паскаль С + + ).

Lollipop090601 3 сент. 2020 г., 17:54:15 | 5 - 9 классы

Составьте программу заполнения массива из 100 чисел случайными значениями из диапазона от - 20 до 20?

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

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

(на паскале).

DarkLordanus 25 мая 2020 г., 05:41:08 | 10 - 11 классы

Сформировать массив из 10 произвольных чисел?

Сформировать массив из 10 произвольных чисел.

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

Danchenko05 17 нояб. 2020 г., 15:50:16 | 10 - 11 классы

Найти разность положительных чисел и посчитать количество отрицательных чисел на отрезке [ - 10 : 3]?

Найти разность положительных чисел и посчитать количество отрицательных чисел на отрезке [ - 10 : 3].

КонфФфета 19 окт. 2020 г., 17:22:51 | 10 - 11 классы

Дан массив целых чисел , определить в нем количество положительных и отрицательных?

Дан массив целых чисел , определить в нем количество положительных и отрицательных.