Форум программистов, компьютерный форум, киберфорум
Наши страницы
QBasic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
1992
0 / 0 / 0
Регистрация: 25.04.2012
Сообщений: 9
1

Верно ли, что годовой доход первого человека больше заданного числа

15.05.2012, 20:23. Просмотров 902. Ответов 1
Метки нет (Все метки)

Двумерные массивы
В двумерном массиве хранится информация о зарплате 18 человек за каждый месяц года (первого человека – в первой строке, второго – во второй строке и т.д.). Верно ли, что годовой доход первого человека больше заданного числа?
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.05.2012, 20:23
Ответы с готовыми решениями:

Верно ли, что отрицательных чисел в последовательности больше, чем положительных?
Помогите решить задачу по Basic (символьные массивы) В списке из 12 фамилий заменить, фамилии...

Определить, верно ли, что в числе вторая цифра с конца больше 6 (функция)
4. Составить функцию, которая определяет, верно ли, что в числе вторая цифра с конца больше 6.

Определить, верно ли, что максимальный элемент первого массива является минимальным элементом второго
Помогите решить задачу: Даны два массива чисел по К элементов в каждом. Верно ли,что максимальный...

Верно ли, что первая цифра числа превышает M?
Дано натуральное число N Верно ли, что его первая цифра превышает M? Добавлено через 59 минут...

Подсчитать количество элементов массива, больше заданного числа
Подсчитать количество элементов больше заданного числа. Если оно больше половины всех элементов,...

1
Quiet Snow
4408 / 1300 / 376
Регистрация: 25.04.2010
Сообщений: 3,325
16.05.2012, 10:15 2
Лучший ответ Сообщение было отмечено 1992 как решение

Решение

QBasic/QuickBASIC
1
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
29
30
31
32
33
34
35
' Зарплаты по месяцам
DATA 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100
DATA 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100
DATA 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100
DATA 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100
DATA 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100
DATA 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100
DATA 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100
DATA 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100
DATA 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100
DATA 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100
DATA 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100
DATA 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100
DATA 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100
DATA 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100
DATA 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100
DATA 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100
DATA 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100
DATA 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100
 
DIM Zpl%(1 TO 12, 1 TO 18)
 
CLS
INPUT "Vvedi chislo: ", c
 
   FOR Chel = 1 TO 18
      FOR Mes = 1 TO 12
         READ Zpl%(Mes, Chel)
      NEXT
   NEXT
   FOR i = 1 TO 12
      s = s + Zpl%(i, 1)
   NEXT
 
IF s > c THEN PRINT "Verno" ELSE PRINT "Neverno"
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.05.2012, 10:15

Удалить элементы массива вещественных чисел, больше заданного числа
Удалить элементы массива вещественных чисел, больше заданного числа.

Верно ли, что минимальный и максимальный элементы числа четные и расположены в одной строке
Составить блок-схему и записать на языке QBASIC. б) Дана матрица Порядка М. Верно ли, что...

Найти количество строк матрицы, сумма элементов которых больше заданного числа
в 2х мерном массиве из 5ти строк и 3-х столбцов найти количество строк, сумма элементов которых...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru