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

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

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


textual

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

 
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.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

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

Источник