заполнить массивы: Y - 47 значений номеров элементов; A - 5 местоимений; X - 30 случайных чисел из интервала [-7;25]
10-11 класс
|
Распечатать массивы: Y,X - в строчку; A - в столбик
в qbasic....
не знаю как в qbasic, но думаю из паскаля переведешь:
uses crt;
var
Y:array[1..47] of integer;
X:array[1..30] of integer;
A:array[1..5] of string;
i:integer;
begin
clrscr;
randomize;
for i:=1 to 47 do
Y[i]:=i;
A[1]:='OH';
A[2]:='OHA';
A[3]:='OHO';
A[4]:='OHИ';
A[5]:='ТЫ';
for i:=1 to 30 do
X[i]:=random(33)-7;
for i:=1 to 47 do
write(Y[i], ' ');
writeln();
for i:=1 to 30 do
write(X[i], ' ');
writeln();
for i:=1 to 5 do
writeln(A[i]);
end.
Другие вопросы из категории
1) дискретные данные
2) непрерывные (аналоговые) данные
Максимум на 2 слайда?Что можно написать там?
Читайте также
Задача
Двумерный массив L задан при помощи генератора случайных чисел из интервала [+1,+5].
Подсчитайте произведение элементов данного массива, которые больше 10, но меньше 30
программирования алгоритм позволяющий найти и вывести номер элемента массива имеющего максимальное значение сре элементов массива которые делятся на 3 и кратны 5
числа 7 и меньше 10. Вывести количество элементов массива и среднее арифметическое значение этих элементов, которых больше заданного числа 7 и меньше 10 на монитор
наибольшему элементу в этом массиве. Вывести значение наибольшего элемента.