Напечатать в обратном порядке все положительные элементы массива - QBasic

  1. Имеется массив A и N произвольных чисел A (N), среди которых есть положительные, отрицательные и равные нулю. Составить программу которая напечатает в обратном порядке все положительные элементы. Например, если A= {2,4-9,5,6,-3,2}, результат: 2,6,5,4,2. Программирование через qbasic. Подскажите пожалуйста!


textual

Код к задаче: «Напечатать в обратном порядке все положительные элементы массива - QBasic»

input "vvedite kol-vo elementov ",n
dim a(n)
randomize timer
for i=1 to n 
a(i)=int(rnd*20)-10
next
print"massiv"
for i=1 to n 
print a(i);
next
print
print "resultat"
for i= n to 1 step-1
if a(i)>0 then print a(i);
next

СДЕЛАЙТЕ РЕПОСТ

11   голосов, оценка 4.182 из 5



Похожие ответы
  1. Задача Написать программу, которая распечатывает 20 членов случайной последовательности, обладающей следующими свойствами 1. последовательность состоит из чисел 1, 2, 3, 4 2. числа 1 и 3 не могут стоять рядом 3. числа 2 и 4 тоже не могут стоять рядом 4. каждое число может стоять в последовательности не более трёх раз подряд пример 1, 1, 1, 2, 3, 4, 4, 3, 3, 2, 1, 1, 4, 4, 4, 1, 4, 1, 2, 2 программа работает не совсем верно: она может выдать и 4 числа подряд. Проблему не решает даже второй счётчик (k, k2 - счётчики призванные контролировать повторение чисел)... подумал: может поставить счётчики на каждое число? нет, глупо, но где-то прокол?

  1. Текст записан в переменной S. И использовано его представление в виде множества. Конечно можно было просто в данном случае отсортировать текст. Но мне хотелось показать, что есть и такой вариант.

  1. Заданы два множества (смотрите в операторе DATA) Перевести эти множества в вид массивов. И произвести операцию объединения. примечание данная программа, в отличие от предыдущих работает с целыми числами и нулём в частности

  1. Даны натуральные числа от 1 до 1 000 000. Сосчитать, сколько чисел содержат в своем написании цифру 3. решение если вы посмотрите программу, то в строке 12 увидите, вместо цифры 3, цифру 7. (!!) и подумаете - "опечатка". Нет. Всё верно. Цифра 3 при записанном условии даст неверный результат. Почему? надо отметить, что все цифры (кроме 0) равноценны и их количество одинаково. Так почему автор поставил 7?

  1. Найти трёхзначное число, которое первым встретится дважды Условие задачи 1. Дан ряд чисел ln2, ln3, ln4, ln5, ln6, ln7, ... (длина не определена) то есть количество чисел вы должны взять столько, сколько нужно для решения задачи 2. Этот ряд преобразуется в следующий ряд по алгоритму. Поскольку числа вещественные, то надо после десятичной точки взять три цифры, которые образуют в общем случае трёхзначное натуральное число. 3. Эти числа и образуют новый ряд 4. Теперь надо найти в этом ряду такое число, которое первым встретится (считая с самого начала) два раза ... Вывести на экран это число и его местонахождение (два места)

  1. Найти сумму всех двузначных чисел, имеющих в записи цифру 1.

  1. Надо найти следующее: 9^999999+9^999999

  1. Люди добрые, помогите перевести сие творение ку бейсик. Pascal1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 const   n=5; var   a,b:array[1..n]of integer;   c:array[1..2*n]of integer;   d:integer; begin   for d:=1 to n do     begin       a[d]:=random(100);       write(a[d]:3);     end;   writeln;   for d:=1 to n do     begin       b[d]:=random(100);       write(b[d]:3);     end;   writeln;   for d:=1 to n do     begin       c[2*d-1]:=a[d];       c[2*d]:=b[d];     end;   for d:=1 to 2*n do     write(c[d]:3);   readln; end.