По блок-схеме написать программу и условие задания - Pascal ABC
Формулировка задачи:
по блок схеме написать программу и условие задачи
Решение задачи: «По блок-схеме написать программу и условие задания»
textual
Листинг программы
const n=4; var a:array[1..n,1..n] of real; s:real; i,j:integer; begin {randomize; for i:=1 to n do for j:=1 to n do a[i,j]:=random(100);} s:=0; for i:=1 to n do for j:=1 to n do if i<j then s:=s+a[i,j]; writeln(s); end.