Важная информация
Показано с 1 по 4 из 4

Тема: Помогите пожалуйста, совершенно не понимаю элементарного программирования((

  1. #1 Помогите пожалуйста, совершенно не понимаю элементарного программирования(( 
    Новичок
    Регистрация
    19.02.2012
    Сообщений
    2
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    Необходимо создать произвольный массив, состоящий из 20 элементов и выполнить задания :
    1) вывести на печать все четные элементы массива
    2) вывести на печать все нечетные элементы массива
    3) найти самое большое число в этом массиве
    4) найти количество отрицательных элементов

    Заранее спасибо)
    Ответить с цитированием  
     

  2. #2  
    Супер модератор Аватар для Kakos_nonos
    Регистрация
    07.01.2011
    Адрес
    Кубань
    Сообщений
    1,531
    Сказал(а) спасибо
    126
    Поблагодарили 428 раз(а) в 291 сообщениях
    Записей в блоге
    6
    Вот, держите:
    Код qbasic:
    DIM a(20)
    otr = 0
    FOR i = 1 TO 20
    INPUT "Vvedite element ", a(i)
    IF a(i) < 0 THEN otr = otr + 1
    NEXT i
    PRINT "Chetnye chisla"
    FOR i = 1 TO 20
    IF a(i) MOD 2 = 0 THEN PRINT a(i)
    NEXT i
    INPUT "nazhmite enter dlja prodolzhenija", uu
    PRINT "Nechetnye chisla"
    FOR i = 1 TO 20
    IF a(i) MOD 2 <> 0 THEN PRINT a(i)
    NEXT i
    m = 1
    FOR i = 2 TO 20
    IF a(i) > a(m) THEN m = i
    NEXT i
    PRINT "Maksimelnoe chislo "; a(m)
    PRINT "Otrizatelnyx "; otr
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    Ответить с цитированием  
     

  3. #3  
    Профи Аватар для Dimon012
    Регистрация
    09.02.2011
    Адрес
    Владивосток
    Сообщений
    850
    Сказал(а) спасибо
    29
    Поблагодарили 130 раз(а) в 108 сообщениях
    Записей в блоге
    3
    Вот как то так... Я специально разделил программу на блоки по заданиям...
    Код :
    'Создаем массив из 20 элементов
    DIM A(20)
    'Заполняем массив случайными числами
    FOR i = 1 TO 20
        A(i) = INT(RND * 100 - 50)
    NEXT
    'печатаем четные элементы
    FOR i = 2 TO 20 STEP 2
        PRINT A(i),
    NEXT
    PRINT
    PRINT
    'печатаем нечетные элементы
    FOR i = 1 TO 20 STEP 2
        PRINT A(i),
    NEXT
    PRINT
    'Определяем максимальное число
    MAX = 0
    FOR i = 1 TO 20
        IF A(i) > MAX THEN MAX = A(i)
    NEXT
    PRINT "Maximum= "; MAX
    'определяем количество отрицательных чисел
    N = 0
    FOR i = 1 TO 20
        IF A(i) < 0 THEN N = N + 1
    NEXT
    PRINT "NNegativ= "; N
    Последний раз редактировалось Dimon012; 19.02.2012 в 17:09.
    Ответить с цитированием  
     

  4. #4  
    Новичок
    Регистрация
    19.02.2012
    Сообщений
    2
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    Спасибо вам огромное!)))
    Ответить с цитированием  
     

Информация о теме
Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Похожие темы

  1. Помогите пожалуйста (срочно)
    от Nastik1993 в разделе QBasic
    Ответов: 5
    Последнее сообщение: 14.11.2012, 10:51
  2. Ответов: 0
    Последнее сообщение: 01.07.2012, 22:03
  3. помогите пожалуйста
    от finer в разделе Turbo Pascal
    Ответов: 3
    Последнее сообщение: 14.06.2012, 16:10
  4. Помогите с программой пожалуйста
    от shemekeev в разделе Visual Basic
    Ответов: 3
    Последнее сообщение: 18.04.2012, 18:11
  5. Ответов: 16
    Последнее сообщение: 24.01.2011, 19:41
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •