в паскаль создать массив который заполняется случайными числами и выводит процентное соотношение положительных и отрицательных чисел
10-11 класс
|
var i,p,o:integer;
a:array [1..30] of integer;
begin cls; randomize;
for i:=1 to 30 do
begin
a[i]:=random(101)-50;
if a[i]>0 then inc(p)
else inc(o);
end;
writeln('procent polojutelnyh = ',(30/100)*p,' procent otric = ',(30/100)*o);
readln;
end.
Другие вопросы из категории
моделирования 3) формализация задачи 4) анализ моделируемого объекта 5 или анализ проблемной задачи!! за это я напишу про вас песню)
Читайте также
первый массив отсортировать по возврастанию второй по убыванию посчитать среднее арифметическое повторяющихся чисел.
язык паскаль
можно написать алгоритм
256. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000. Программа должна вывести два числа: длину последовательности и сумму положительных чётных чисел, не превосходящих 256.
1) Из элементов данного массива W[1..20] создать 2 новых массива, первый из которых содержит только положительные элементы, а второй только отрицательные.
2) Заполнить СЛУЧАЙНЫМИ числами в диапазоне от 1 до 10 два массива A[20] и B[20]. Найти и вывести на экран только те элементы этих массивов и их номера, значения которых попарно совпадают.
Например, если A[2]=B[2]=4, то на экран надо вывести: Номер-2, значение-4.
3) Заменить найденный минимальный элемент числом 100 и показать на экране массив с этой заменой.
строк.Исходный массив и результат вывести на экран
30 элементов. Заполнить с помощью случайных чисел, вычислить сумму отрицательных чисел и количество положительных чисел. Заранее спасибо!