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