zadach342.BAS

{* Задача342 *}

REM basic

' В памяти эвм хранится информация о валовом сборе зерна по союзным республикам отдельно за 1984 и 1985г.Определить суммарный сбор зерна по каждой республике за 2 года.Задача сводится к суммированию двух массивов


INPUT "vvedite kol-vo respublik"; n
PRINT "1984"
For i = 1 To n
    INPUT "vvod data"; a(i)
Next
PRINT "1985"
For i = 1 To n
    INPUT "vvod data"; b(i)
Next
PRINT "1984"
For i = 1 To n
    PRINT a(i);
Next
PRINT
PRINT "1985"
For i = 1 To n
    PRINT b(i);
Next
PRINT
PRINT "New"
For i = 1 To n
    PRINT a(i) + b(i);
Next
End