массив А(30) заполнить целыми случайными числами из (-7;25) вычислить полупроизведение всех положительных элементов. В Паскале. Нужно прям срочно. Буду

+ 0 -

Wika2004

18 февр. 2014 г., 13:09:28 (10 лет назад)

program task1;
const  n = 30;
var  a :array [1..n] of integer; 
 i, p :integer; 
pr :real;
begin
 randomize; 
 for i:= 1 to n do   
a[i]:= random(33)-7; 
p:= 1;  for i:= 1 to n do   
if a[i] > 0 then     
p:= p * a[i]; 
pr:= p/2; 
writeln(pr);
end.

program task2;
const  n = 30;
var  a: array [1..n] of integer; 
i, sum, max, min: integer; 
sr: real;
begin
randomize; 
for i := 1 to n do   
a[i] := random(33) - 7;   
sum:= 0; 
 for i := 1 to n do   
if a[i] >= 0 then     
sum:= sum + sqr(a[i]); 
min:= a[1];  max:= a[1]; 
for i := 1 to n do  begin   
if a[i] > max then max:= a[i];   
if a[i] < min then min:= a[i]; 
end; 
sr:= (max + min)/2; 
writeln('Сумма кадратов: ',sum); 
writeln('Среднее арифметическое: ',sr);  
end.

+ 0 -

Екатерина10021976

18 февр. 2014 г., 14:46:52 (10 лет назад)

массив А(30) заполнить целыми случайными числами из (-7;25)
вычислить:
1)сумму квадратов не отрицательных элементов
2)среднее арифметическое наиб и наим элементов массива