Дан массив целых чисел состоящих из 10 элементов...
5-9 класс
|
Пишу на QBasic
Массив уже создан и заполнен
FOR I = 1 TO 10
IF A(I)>0 THEN
L=L+A(I)
END IF
NEXT I
PRINT L
FOR I = 2 TO 10
IF A(I)>A(I-1) THEN
PRINT I
END IF
NEXT I
FOR I = 2 TO 9
IF (A(I)<0 AND A(I-1)<0) OR (A(I)<0 AND A(I+1)<0) OR (A(I)>0 AND A(I-1)>0) OR (A(I)>0 AND A(I+1)>0) THEN
PRINT "Да"
END
END IF
NEXT I
Последнее слишком муторно писать
Другие вопросы из категории
. Какое максимальное количество цветов в палитре изоброжения было использавано ?
А) 32
Б) 64
В) 128
Г) 256
Читайте также
2. Дан массив целых чисел,найти количество отрицательных элементов массива.
3. Дан массив целых чисел,найти количество чётных чисел в массиве.
с клавиатуры. Найти:
-Удвоенную сумму положительных элементов;
-вывести индексы тех элементов, значения которых больше значения предыдущего элемента(начиная со второго).
2.Определить,есть ли 2 пары соседних элементов с одинаковыми знаками.
Язык программирования: Паскаль
2.Дан массив целых чисел из 25 элементов. Заполнить его случайными числами от 0 до 50. Заменить все четные элементы на их квадраты, а нечетные удвоить.
Найти сумму элементов данного массива.
2. Заполнить одномерный массив, состоящий из 10 элементов, случайными числами от-15 до 35.
Найти значение максимального элемента массива.