Последний максимальный элемент массива заменить нулем

@ztvgtxtymt · Регистрация: 17.02.2014

Студворк — интернет-сервис помощи студентам

1.Дан одномерный массив из натуральных чисел a1n a2n ...последний максимальный элемент заменить нулем
2. Дано натуральное число n вычислить (1/2)*(2/3)*(3/4)... n/(n+1) буду очень благодарен

@Puporev · 17.02.2014, 14:02

1.

Pascal

const nmax=100;
var a:array[1..nmax] of integer;
    n,i,imx:integer;
begin
randomize;
repeat
write('Размер массива до ',nmax,' n=');
read(n);
until n in [1..nmax];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(50)+1;
  write(a[i]:4);
  if i=1 then imx:=1
  else if a[i]>a[imx] then imx:=i
 end;
writeln;
writeln('Последний максимальный элемент=',a[imx],' его номер=',imx);
writeln('Замена последнего максимального нулем');
for i:=1 to n do
 begin
  if i=imx then a[i]:=0;
  write(a[i]:4);
 end;
end.

@Samhain · 17.02.2014, 14:05

ztvgtxtymt, 2.

Pascal

var p:real;
    i,n:integer;
begin
  write('n = ');readln(n);
  p:=1;
  for i:=1 to n do
    p:=p*i/(i+1);
  writeln(p:0:5);
end.

Последний максимальный элемент массива заменить нулем

Решение

Решение

@ztvgtxtymt 0 / 0 / 0 Регистрация: 17.02.2014 Сообщений: 3
		1
	Последний максимальный элемент массива заменить нулем 17.02.2014, 13:27. Показов 1330. Ответов 2 Метки нет (Все метки) 1.Дан одномерный массив из натуральных чисел a1n a2n ...последний максимальный элемент заменить нулем 2. Дано натуральное число n вычислить (1/2)(2/3)(3/4)... n/(n+1) буду очень благодарен 0

Опции темы