Нужна помощь в Visual BasicНайти и вывести на экран все положительные элементы массива А(а1, а2, ?

Другие предметы | 10 - 11 классы

Нужна помощь в Visual Basic

Найти и вывести на экран все положительные элементы массива А(а1, а2, .

Аn). Одновременно вывести на экран их порядковые номера.

Для матрицы A размером m × n вычислить среднее арифметическое каждого столбца.

Заранее благодарен.

Ответить на вопрос
Ответы (1)
Xolodova1968 19 сент. 2021 г., 10:11:10

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

uses crt ;

var a : array[1.

10] of integer ; i : integer ;

begin

write('Исходный массив : ') ;

for i : = 1 to 10 do begin

a[i] : = random(21) - 10 ;

write(a[i], ' ') ;

end ;

writeln ;

write('Положительные элементы : ') ;

for i : = 1 to 10 do begin

if a[i]>0 then write(a[i], ' ') ;

end ;

writeln ;

write('Номера положительных элементов : ') ;

for i : = 1 to 10 do begin

if a[i]>0 then write(i, ' ') ;

end ;

end.

Екатерина1234567897 5 янв. 2021 г., 13:42:28 | 5 - 9 классы

Помогите пожалуйста, очень срочно нужно?

Помогите пожалуйста, очень срочно нужно.

Мне нужно написать любовное послание, используя профессиональную технологию - астронома.

Со словами : экран, телескоп, комета, планета, радиостанция, вселенная, солнце, луна, звезды.

Котя176 8 апр. 2021 г., 17:01:49 | 10 - 11 классы

Пожалуйста, помогите по информатике?

Пожалуйста, помогите по информатике.

Честно, не понимаю как это сделать)

1) Найти произведение всех элементов массива А : array[1.

10] of real.

2) Найти и вывести сумму элементов массива из 15 чисел, кратных 5.

Массив заполняется случайными числами.

Спасибо.

Иринаперкакуева1 12 янв. 2021 г., 04:11:47 | 10 - 11 классы

Дана матрица размера M * N?

Дана матрица размера M * N.

Упорядочить по возрастанию суммы элементов каждой строки.

Помогите, пожалуйста!

Nataxads33 30 мая 2021 г., 20:26:36 | 10 - 11 классы

Дана последовательность из n различных чисел?

Дана последовательность из n различных чисел.

Найти сумму чисел этой последовательности, расположенных между максимальным и минимальным значениями ( в сумму включить оба этих числа) в visual basic.

Satanist19 19 янв. 2021 г., 05:46:58 | 5 - 9 классы

Какие из перечисленных объектов являются элементами компьютерного интерфейса(несколько ответов) a) Окна б) Экранные кнопки в) Рабочий стол г) Панель задач д) Меню?

Какие из перечисленных объектов являются элементами компьютерного интерфейса(несколько ответов) a) Окна б) Экранные кнопки в) Рабочий стол г) Панель задач д) Меню.

Лехаган 2 июл. 2021 г., 12:14:03 | 5 - 9 классы

Что нового можно вывести из филармонии?

Что нового можно вывести из филармонии.

JofGamer 28 янв. 2021 г., 08:39:38 | 5 - 9 классы

Нужно срочно сочинить стих про зиму средних размеров?

Нужно срочно сочинить стих про зиму средних размеров.

Alexdawneyjob 15 авг. 2021 г., 06:56:30 | студенческий

Помогите, пожалуйста?

Помогите, пожалуйста.

У меня вопрос : "Зачем нужны банки?

" Заранее, благодарю : ).

Viktorholkin 30 мая 2021 г., 07:17:59 | 1 - 4 классы

Придумайте, пожалуйста, упражнения для физкульт - минутки?

Придумайте, пожалуйста, упражнения для физкульт - минутки.

Названия должны быть креативными, оригинальными .

Заранее благодарю Вас за помощь!

333angel333 19 июн. 2021 г., 09:30:11 | 1 - 4 классы

На какую кнопку клавиатуры фотографировать экран компютера?

На какую кнопку клавиатуры фотографировать экран компютера?

(даю 20 баллов).

Baku6 5 авг. 2021 г., 13:31:17 | 1 - 4 классы

Из чего сделан экран телевизор?

Из чего сделан экран телевизор!

СРОЧНО.

Вы находитесь на странице вопроса Нужна помощь в Visual BasicНайти и вывести на экран все положительные элементы массива А(а1, а2, ? из категории Другие предметы. Уровень сложности вопроса рассчитан на учащихся 10 - 11 классов. На странице можно узнать правильный ответ, сверить его со своим вариантом и обсудить возможные версии с другими пользователями сайта посредством обратной связи. Если ответ вызывает сомнения или покажется вам неполным, для проверки найдите ответы на аналогичные вопросы по теме в этой же категории, или создайте новый вопрос, используя ключевые слова: введите вопрос в поисковую строку, нажав кнопку в верхней части страницы.