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

Question

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

Answer 1

37

sergey_ivanov

12 февраля 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: