Массив А(30) заполнить целыми случайными числами из (-7;25) вычислить полупроизведение...

Question

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

Comments

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

Answer 1

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.

Comments

огромное спасибо,а ещё две задачи сможете сделать?

---

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

---

большое вам спасибо, я просто болел на этой теме, а как только выздоровил мне учитель дал эти задания и не объяснил тему и сказал что у меня очень мало оценок, а у меня в первом треместре было 4 ,а во втором - 5, так что вы мне помогли получить пятёрку за год, спасибо вам большое