1. Дан массив. Заменить элементы с нечетными номерами ** квадраты их номеров.2. Найти...

Question

1. Дан массив. Заменить элементы с нечетными номерами на квадраты их номеров.
2. Найти произведение всех элементов массива, меньших 15
3. Вывести на экран 30 членов арифметической прогрессии, где a[1]=5 и d=3
S(n)=2a[1]+(d(n-1)/2)*n

Answer 1

Вот так пойдет?
дан массив. заменить элементы с нечетными номерами на квадраты их номеров.


program tt;uses wincrt;
type  Tmas=array[1..100] of real;
var  d,a:Tmas;  i,j,n:byte;
procedure enter_d(n:byte; var d:Tmas);
begin  
randomize;  
for i:=1 to n do begin    
d[i]:=random(40);    
write(d[i]:0:0,' ');  
end;
writeln;
end;

procedure form_a(n:byte;d:Tmas;var a:Tmas);
begin  
for i:=1 to n do begin    
if odd(i)=true then a[i]:=d[i]/i    
else a[i]:=sqr(d[i]); end;
end;

procedure show_a(a:Tmas);
begin  
for i:=1 to n do
write(a[i]:0:2,' ');
end;
end; 
BEGIN 
ClrScr;  writeln('Введите размер массива: '); 
readln(n); 
enter_d(n,d); 
form_a(n,d,a); 
show_a(a);
END.

Comments

найти произведение всех элементов массива, меньших 15.

Var i,s,n:integer;
A:array[1..100] of integer;
Begin
write('Введите размер массива: ');readln(n);
s:=0;
For i:=1 to n do
Begin
A[i]:=random(101);
write(A[i]:4);
if A[i]<=15 then s:=s+A[i];<br> End;
writeln;
if s<>0 then writeln('Сумма: ',s)
else writeln('Таких чисел нету');
readln;
End.

---

вывести на экран 30 членов арифметической програссии, где a[1]=5 и d=3. (Sn=2a[1]+d(n-1)\2*n)

Var i,s,n,k:integer;
A:array[1..30] of integer;
Begin
k:=5;
s:=3;
For i:=1 to 30 do
Begin
A[i]:=10+(3*(n-1))\2*n;
write(A[i]:4);
End;
writeln;

End.

---

На компьютере не проверял, рекомендую проверить! :)

---

if s<>0 then writeln('Сумма: ',s)
else writeln('Таких чисел нету');

---

Почему сумма не может быть равна нулю?

---

15 + - 15 Сколько будет?

---

мы не проходили ни uses wincrt, type Tmas

---

и я вобще не знаю как это заменить

---

но мы так не решаем