Все отрицательные числа возвести в третью степень. Из полученных значений сформировать одномерный массив — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
INPUT n
INPUT m
DIM a(n,m)
DIM b(n*m)
RANDOMIZE TIMER
FOR i = 1 TO n
FOR j = 1 TO m
a(i,j) = INT(RND(1)*10)-5
IF a(i,j)<0 THEN a(i,j)=a(i,j)^3
b(j+m*(i-1))=a(i,j)
NEXT
NEXT

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