1. Дан массив. Заменить элементы с нечетными номерами на квадраты их номеров.
2. Найти произведение всех элементов массива, меньших 15
3. Вывести на экран 30 членов арифметической прогрессии, где a[1]=5 и d=3
S(n)=2a[1]+(d(n-1)/2)*n
2. Найти произведение всех элементов массива, меньших 15
3. Вывести на экран 30 членов арифметической прогрессии, где a[1]=5 и d=3
S(n)=2a[1]+(d(n-1)/2)*n
More Questions From This User See All
Answers & Comments
дан массив. заменить элементы с нечетными номерами на квадраты их номеров.
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.
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];
End;
writeln;
if s<>0 then writeln('Сумма: ',s)
else writeln('Таких чисел нету');
readln;
End.
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.
else writeln('Таких чисел нету');