Задаётся два массива из случайных чисел. Программа распечатывает их, а затем печатает одинаковые элементы этих массивов(если они есть) и указывает их номера — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
cls
dim a(10)
dim b(10)
randomize timer
for i = 1 to 10
a(i)=int(rnd(1)*50)
b(i)=int(rnd(1)*50)
next i
for i = 1 to 10
? a(i);
next i
?
for i = 1 to 10
? b(i);
next i
?
for i = 1 to 10
if a(i)=b(i) then ? "nomer ="; i; "a("; i;")=b(";i;")=";a(i)
next i

Тестирование выполнено в программе QB64 ( Скачать )

Похожие записи/страницы:

Leave a Comment