Задание:
Задать массив (двумерный) случайным вещественным числами и рассчитать сумму всех элементов больших заданного числа. Программа нужна вpascal
Решение:
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.
Знаете другой ответ?