1. Дан массив. Заменить элементы с нечетными номерами на квадраты их номеров.2. Найти произведение всех элементов массива, меньших 153. Вывести на экран 30 членов арифметической прогрессии, где a[1]=5 и d=3 S(n)=2a[1]+(d(n-1)/2)*n
1. Дан массив. Заменить элементы с нечетными номерами на квадраты их номеров.
2. Найти произведение всех элементов массива, меньших 15
3. Вывести на экран 30 членов арифметической прогрессии, где a[1]=5 и d=3
S(n)=2a[1]+(d(n-1)/2)*n
Гость
Ответ(ы) на вопрос:
ГостьВот так пойдет?
дан массив. заменить элементы с нечетными номерами на квадраты их номеров.
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.
Не нашли ответ?
Похожие вопросы