Объявить 2-х мерный массив 3 на 4, заполнить случайными целыми числами от -10 до 10, с помощью операторов цикла и Print вывести их на поле Form
10-11 класс
|
бейсик
Попробуй так:
Sub z()
cls
Dim a(3, 4)
For i = 1 To 3
For j = 1 To 4
a(i, j) = Int(Rnd * 31) - 10
Print a(ij); " ";
Next j
Print
Next i
End Sub
Другие вопросы из категории
Читайте также
увеличить в 3 раза. Вывести на экран монитора первоначальный и преобразованный массивы в строчку.
Пожалуйста, помогите написать программу в Паскале.
языков программирования алгоритм,позволяющий найти среднее арифметическое нечетных трехзначных чисел,записанных в этом массиве.если ни одного такого числа нет,нужно вывести сообщение об этом.
2)дан целочисленный массив из 30 элементов.элементы массива могут принимать целые значения от 0 до 100.опишите на русском языке или на одном из языков программирования алгоритм,позволяющий найти и вывести произведение элементов массива,которые имеют четное значение и не оканчиваются на 0.
2.Вывести на экран 10 строк, содержащие символ *, причем количество * в каждой строке должно быть равно номеру строки.
3.Пользователем вводится 2 целых числа. Вывести на экран сумму положительных четных чисел, находящихся в границах диапазона, указанного пользователем.
4. В результате работы программы формируется массив, состоящий из 10 элементов и заполненный случайными числами от 0 до 100. Вывести на экран этот же массив в порядке возрастания.
5.Вводится строка, содержащая буквы и цифры разного регистра (т.е. строчные и прописные буквы). В результате работы программы на экран выводится строка следующего вида: цифры в порядке возрастания, строчные буквы по алфавиту, прописные буквы по алфавиту.
Двухмерный массив размером M*N заполнить случайными целыми числами в интервале от -90 до 0. Вывести полученный массив на экран в виде таблицы. Найти количество элементов кратных 4 в последней строке.
строчку. Найти сумму нечетных элементов массива