сервис вопросов и ответовВводится последовательность целых чисел, по абсолютной величине меньших или равных 100.Найти и вывести на печать максимальный элемент и число
10-11 класс|
|
отрицательных элементов, расположенных после первого нулевого элемента.
Кто может плз очень срочно решить,желательно без массивов,но если не выйдет то через них.На языке Turbo Pascal
Alenka000000
27 сент. 2013 г., 9:57:09 (10 лет назад)
Gomes6726
27 сент. 2013 г., 10:52:25 (10 лет назад)
program project1;
uses
crt,math;
constn=10;
var
s:real;
i,f,m:byte;
a:array [1..10] of real;
begin
m:=0;
for i:=1 to n do
begin
writeln('vvedite ',i,' cifru');readln(a[i]);
end;
for i:=1 to n do
begin
if a[i]<0 then
inc(f);
end;
for i:=1 to n do
begin
if a[i]=0 then
inc(m);
if m<>0 then
s:=s+a[i];
end;
writeln('kolichestvo otricatelnih: ',f:2);
writeln('summa vseh posle 0: ',s:2:2);
readln;
end.
Ответить
Другие вопросы из категории
Задание № 1) Разработать блок схему алгоритма, который проверяет, является ли четным введенное с клавиатуры число
Задание 2) Разработать блок схему алгоритма? для вычисления и вывода на экран суммы 5 случайных числе в диапазоне 0..36.
Помогите пожалуйстааааа
Не знаю как решать, срочно, пожалуйстааааа
Где-то справа от каретки на информационной ленте находится непрерывный массив меток. Написать программу для машины Поста, которая передвигает каретку в сторону массив меток, проходит по массиву и останавливается в первой пустой ячейке после массива
На промышленном предприятии решается вопрос о том, сколько потребуется механиков для работы в ремонтном цехе. Пусть предприятие имеет 10 машин,
требующих ремонта с учетом числа ремонтирующихся. Отказы машин происходят с частотой λ=10 отк/час. Для устранения неисправности механику требуется в среднем =3 мин. Распределение моментов возникновения отказов является пуассоновским, а продолжительность выполнения ремонтных работ распределена экспоненциально. Возможно организовать 4 или 6 рабочих мест в цехе для механиков предприятия. Необходимо выбрать наиболее эффективный вариант обеспечения ремонтного цеха рабочими местами для механиков.
Читайте также
Вводится последовательность целых чисел, по абсолютной величине меньших или равны 100. Найти и вывести на печать количество отрицательных чисел и сумму
всех чисел, расположенных после первого нулевого элемента.
Написать на Паскале буду очень благодарен!!
Паскаль, 10 класс. Прошу срочно помочь. Заранее спасибо!
Задача №1:
Используя операторы цикла, рассчитать сумму ряда для значений x=0.5; 0.55; 0.6; 0.65; 0.7; 0.75. Включать в сумму члены ряда, большие или равные значению eps=0.00001. Проверить правильность вычислений для контрольной точки x=0.5. Сравнить полученные значения со значениями, рассчитанными по точному аналитическому выражению.
2x3(куб)/3-2x5/15+2x7/35-...+(-1)k+1*2x(2k+1)/4k2-1+..., f(x)=(1+x2)arctgx-x, f(0.5)=0.07955.
Задача №2:
Вводится последовательность целых чисел, по абсолютной величине меньших или равных 100. Найти и вывести на печать количество отрицательных чисел и среднее арифметическое значение всех чисел, расположенных после первого нулевого элемента.
Вводятся три одномерных массива А(15), В(20), С(10). Найти тот массив, который имеет наименьшее значение максимального по абсолютной величине элемента.
Вывести на печать массив и максимальный по модулю элемент.
Составить программу Дан массив натуральных чисел , размерность -12 !) Заполнение массива производить с клавиатуры 2) Вывести на печать
только элементы кратные 2
3)Найти сумму первых пяти элементов
Составить программу Дан массив целых чисел , размерность -12
1) Заполнение массива производить случайными числами из диапозона [-10;35]
2)Вывести на печать только положительные элементы
3)Найти количество отрицательных элементов
Составить программу
Известны данные о выпуске прождукции ( ткани в метрах ) ткацким цехом текстильного комбината за каждый день месяца . Определить количество ткани ( метров) произведенных цехом за месяц .
Помогите решить задачу. Pascal
Дан массив
целых чисел К(15), найти и вывести на печать отрицательные элементы из
этого массива.
Вы находитесь на странице вопроса "Вводится последовательность целых чисел, по абсолютной величине меньших или равных 100.Найти и вывести на печать максимальный элемент и число", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.