Заменить элементы массива, равные 50, на значение максимального среди положительных элементов. Определить количество замен.

@aleksLesli · Регистрация: 25.03.2012

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

Нужна помощь Специалиста по Pascal Спасибо что вы есть
Помогите решить задачу на паскале:
Дан массив C(N). Заменить элементы, равные 50, на значение максимального среди его положительных элементов. Определить количество выполненных замен.
................................................................................ ......................................................................
Спасибо

@КонецСвета · 25.03.2012, 20:31

Pascal

uses crt;
const nmax=50;
var c: array [1..nmax] of integer;
    n,i,k,imax: byte;
begin
repeat
write('Количество элементов, не более ',nmax,', n=');  readln(n);
until n in [1..nmax];
writeln('Дан массив');
for i:=1 to n do
    begin
    c[i]:=random(101)-40;
    write(c[i]:4);
    end;
i:=1;
while c[i]<0 do
      inc(i);
imax:=i;
while i<=n do
      begin
      if c[i]>c[imax] then imax:=i;
      inc(i);
      end;
k:=0;
writeln;
writeln('Максимальный положительный элемент=',c[imax]);
writeln('Преобразованный массив');
for i:=1 to n do
    begin
    if c[i]=50 then
       begin
       c[i]:=c[imax];
       inc(k);
       end;
    write(c[i]:4);
    end;
writeln;
writeln('Всего замен ',k);
end.

@aleksLesli · 27.03.2012, 20:47 **[ТС]**

Спасибо большое тебе, очень помог!

Добавлено через 40 секунд
КонецСвета, спасибо очень помог

@aleksLesli · 11.04.2012, 08:41 **[ТС]**

КонецСвета, подскажи пожалуйста как добавить сортировку выводимых элементов по возрастанию

@КонецСвета · 11.04.2012, 11:40

Pascal

uses crt;
const nmax=50;
var c: array [1..nmax] of integer;
    n,i,k,imax: byte;
    buf: integer;
begin
repeat
write('Количество элементов, не более ',nmax,', n=');  readln(n);
until n in [1..nmax];
writeln('Введите элементы массива');
for i:=1 to n do
    begin
    write('c[',i,']='); readln(c[i]);
    end;
writeln('Дан массив');
for i:=1 to n do
    write(c[i]:4);
writeln;
i:=1;
while c[i]<0 do
      inc(i);
imax:=i;
while i<=n do
      begin
      if c[i]>c[imax] then imax:=i;
      inc(i);
      end;
k:=0;
writeln;
writeln('Максимальный положительный элемент=',c[imax]);
writeln('Преобразованный массив');
for i:=1 to n do
    begin
    if c[i]=50 then
       begin
       c[i]:=c[imax];
       inc(k);
       end;
    write(c[i]:4);
    end;
writeln;
writeln('Всего замен ',k);
k:=0;
while k<=n do
      begin
      for i:=1 to n-1 do
          if c[i]>c[i+1] then
             begin
             buf:=c[i];
             c[i]:=c[i+1];
             c[i+1]:=buf;
             end;
      inc(k);
      end;
writeln('Сортированный массив');
for i:=1 to n do
    write(c[i]:4);
end.

@aleksLesli · 17.04.2012, 19:43 **[ТС]**

КонецСвета, Можешь помочь с заданием?
Дан массив B(N,M). Определить сумму квадратных корней из его положительных элементов и сумму квадратов его отрицательных элементов.
Сортировка по возрастанию
Спасибо

@aleksLesli 0 / 0 / 0 Регистрация: 25.03.2012 Сообщений: 10
		1
	Заменить элементы массива, равные 50, на значение максимального среди положительных элементов. Определить количество замен. 25.03.2012, 18:57. Показов 1814. Ответов 5 Метки нет (Все метки) Нужна помощь Специалиста по Pascal Спасибо что вы есть Помогите решить задачу на паскале: Дан массив C(N). Заменить элементы, равные 50, на значение максимального среди его положительных элементов. Определить количество выполненных замен. ................................................................................ ...................................................................... Спасибо 0

@aleksLesli 0 / 0 / 0 Регистрация: 25.03.2012 Сообщений: 10
	27.03.2012, 20:47 [ТС]	3
	Спасибо большое тебе, очень помог! Добавлено через 40 секунд КонецСвета, спасибо очень помог 0

@aleksLesli 0 / 0 / 0 Регистрация: 25.03.2012 Сообщений: 10
	11.04.2012, 08:41 [ТС]	4
	КонецСвета, подскажи пожалуйста как добавить сортировку выводимых элементов по возрастанию 0

@aleksLesli 0 / 0 / 0 Регистрация: 25.03.2012 Сообщений: 10
	17.04.2012, 19:43 [ТС]	6
	КонецСвета, Можешь помочь с заданием? Дан массив B(N,M). Определить сумму квадратных корней из его положительных элементов и сумму квадратов его отрицательных элементов. Сортировка по возрастанию Спасибо 0