|
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
|