Задать массив(двумерный) случайным...

Тема в разделе "Информатика", создана пользователем volk, 3 апр 2010.

  1. volk

    volk New Member

    Задать массив(двумерный) случайным вещественным числами и рассчитать сумму всех элементов больших заданного числа. Программа нужна вpascal
     
    volk, 3 апр 2010
    #1
  2. dolphin

    dolphin New Member

    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.
     
    dolphin, 3 апр 2010
    #2

Поделиться этой страницей

Наша группа