Даны 2 массива А и В по 15 элементов в каждом. Получить новый массив Сi=Ai+Bi. Найти в нем максимум- Basic(Бейсик)

disel

распечатать в виде
Массив А:
Массив В
Массив С
max=

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
DIM a(15),b(15),c(15)
FOR i=1 TO 15
INPUT"vv. el. massiva a",a(i)
NEXT
FOR i=1 TO 15
INPUT"vv. el. massiva b",b(i)
NEXT
FOR i=1 TO 15
c(i)=a(i)+b(i)
NEXT
max=c(1)
FOR i=1 TO 15
IF c(i)>max THEN max=c(i)
NEXT
PRINT "massiv A: ";
FOR i=1 TO 15
PRINT a(i);" ";
NEXT
PRINT
PRINT "massiv B: ";
FOR i=1 TO 15
PRINT b(i);" ";
NEXT
PRINT
PRINT "massiv c: ";
FOR i=1 TO 15
PRINT c(i);" ";
NEXT
PRINT
PRINT max

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

Leave a Comment