написать программу которая определяет количество отрицательных элементов массива. Размер- 10 элементов. диапозон -10 до 10. в случайных числах.массив не
10-11 класс
|
выводить
var
m : array [0..9] of Integer;
c, i : integer;
begin
c:=0;
for i := 0 to 9 do begin
read(m[i]);
if m[i] < 0 then
c:= c+1;
end;
write(c);
end.
Другие вопросы из категории
равен сумме квадратов координат
этом все должны принимать участие в этом раунде. и так пока не пройдёт (n = 2*m) n - 1 раундов. Я потом этот алгоритм должен буду описать на Paskal.
Или доказать, что это невозможно
Читайте также
текст.
3)Написать программу, которая определяет является ли слово палиндромом.
4)Написать программу, определяющую какая из букв а или о встречается в тексте первой.
Помогите хотябы одну пожалуйста))Нужно до завтра!))
каждый его элемент был равен утроенному значению его порядкового номера (индекса). 3. Ввести массив с клавиатуры, найти и вывести сумму элементов массива. 4. Ввести массив с клавиатуры, подсчитать, сколько в нем положительных элементов, а сколько отрицательных. 5. В одномерном массиве подсчитать, сколько отрицательных элементов находится на четных местах и сколько положительных на нечетных. 6. Элементы массива вводятся с клавиатуры, заменить в нем все отрицательные элементы их квадратами, а положительные кубами. Вывести на экран исходный и новый массив. 7. Ввести массив с клавиатуры, найти и вывести на экран максимальный и минимальный элементы. 8. Написать программу, которая определяет есть ли в массиве элемент введенный пользователем, подсчитывает их количество и выводит номер первого найденного элемента.
программу заполнения массива B[1..10] таким образом: элементы с нечетными индексами равны числу 2, а элементы с четными индексами равны числу 5.
подсчитать количество отрицательных элементов
сумму положительных элементов
ВЫВОДИТ НА ЭКРАН НОМЕРА ВСЕХ ЭЛЕМЕНТОВ, ЗНАЧЕНИЯ КОТОРЫХ =0
Ввести с клавиатуры натуральное число.написать программу, которая определяет, кратна ли сумма его цифр 6.