Задать массив(двумерный) случайным вещественным числами и рассчитать сумму всех элементов больших заданного числа. Программа нужна в pascal

1

Ответы и объяснения

2013-10-08T19:15:11+04:00
Var a:array [1..5,1..5] of real;
     i,j:integer;
     sum,n:real;
begin
  randomize;
  sum:=0;
  for i:=1 to 5 do 
   begin
    for j:=1 to 5 do
     begin
      a[i,j]:=random(9)+1;
      write (a[i,j]:0:1,'   ');
     end;
    writeln;
    writeln;
   end;
  write ('N = ');
  readln (n);
  for i:=1 to 5 do
   for j:=1 to 5 do 
    if a[i,j]>n then sum:=sum+a[i,j];
  writeln ('Summa: ',sum:0:1);
end.