Программа эквивалентная программе на Basic - PascalABC.NET
Формулировка задачи:
На какой оператор можно заменить DATA?
Решение задачи: «Программа эквивалентная программе на Basic»
textual
Листинг программы
var a:array [0..2,0..2] of integer:=((1,2,3),(4,5,6),(7,8,9)); i,j:integer; tr:real; begin tr:=0; for i:=0 to 2 do tr:=tr+a[i,i]; writeln(tr); end.
Объяснение кода листинга программы
- Объявляется двумерный массив a размером 3x3, инициализируется значениями 1,2,3; 4,5,6; 7,8,9 соответственно.
- В переменной i инициализируется значение 0.
- В переменной j инициализируется значение 0.
- В переменной tr инициализируется значение 0.
- Цикл for запускается три раза (0,1,2) с переменной i, каждый раз значение tr увеличивается на сумму элементов массива a по диагонали (1+2+3, 4+5+6, 7+8+9).
- Значение переменной tr выводится на экран.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д