По блок-схеме написать программу и условие задания - Pascal ABC

Формулировка задачи:

по блок схеме написать программу и условие задачи

Код к задаче: «По блок-схеме написать программу и условие задания - 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.

12   голосов, оценка 4.083 из 5


СОХРАНИТЬ ССЫЛКУ