Дан массив вещественных чисел, в котором необходимо вывести на экран номера отрицательных элементов и найти сумму положительных.
10-11 класс
|
program tref;
var i,sum:integer; mas:array[1..10]of integer;
begin
for i:=1 to 10 do
begin
mas[i]:=random(20)-5 ;
write(mas[i]:3);
end;
writeln;
for i:=1 to 10 do
begin
if(mas[i]>=0)then sum:=sum+mas[i] else write(i:3);
end;
writeln;
writeln('sum= ',sum);
readln;
end.
Другие вопросы из категории
сигнала фиксируется 48 000 раз в секунду, для записи каждого значения
используется 32 бит. Запись длится 4 минуты, её результаты записываются в
файл, сжатия данных не производится. Какая из приведённых ниже величин
наиболее близка к размеру полученного файла?
РЕШАТЬ НЕ НАДО, НАДО ФОРМУЛЫ К ЭТОЙ ЗАДАЧИ
Читайте также
2) ввести с клавиатуры массив из n элементов вывести на экран максимальный четный элемент и минимальный нечетный элемент
только элементы кратные 2
3)Найти сумму первых пяти элементов
Составить программу Дан массив целых чисел , размерность -12
1) Заполнение массива производить случайными числами из диапозона [-10;35]
2)Вывести на печать только положительные элементы
3)Найти количество отрицательных элементов
Составить программу
Известны данные о выпуске прождукции ( ткани в метрах ) ткацким цехом текстильного комбината за каждый день месяца . Определить количество ткани ( метров) произведенных цехом за месяц .
2.Вывести на экран 10 строк, содержащие символ *, причем количество * в каждой строке должно быть равно номеру строки.
3.Пользователем вводится 2 целых числа. Вывести на экран сумму положительных четных чисел, находящихся в границах диапазона, указанного пользователем.
4. В результате работы программы формируется массив, состоящий из 10 элементов и заполненный случайными числами от 0 до 100. Вывести на экран этот же массив в порядке возрастания.
5.Вводится строка, содержащая буквы и цифры разного регистра (т.е. строчные и прописные буквы). В результате работы программы на экран выводится строка следующего вида: цифры в порядке возрастания, строчные буквы по алфавиту, прописные буквы по алфавиту.
экран с 20 по 50 в строку через пробел
2.для первыз десяти элементов найти среднее арифмитическое
3.вывести на экран только четные элементы с 1 по 10 элементы массива
4.найти сумму нечетныз значений с 20 по 50 элемент
5.найти количество элементов кратныз заданному числу,введёного с клавиатуры среди всез элементок линейного массива
массив из N целых чисел и выводит на экран номера отрицательных элементов и сами эти элементы. Протестировать программу для следующих массивов:
а) 3 5 -2 0 -6 -8 1
б) -1 -2 -3 0 -1 2 3
массивы должны вводися вручную а не рандомно.