Заменить элементы массива, равные 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). Определить сумму квадратных корней из его положительных элементов и сумму квадратов его отрицательных элементов.
Сортировка по возрастанию
Спасибо

Новые блоги и статьи
Администрирование Git, продвинутые техники работы с Git InfoMaster 11.01.2025 Основы управления репозиторием Эффективное управление Git-репозиторием требует глубокого понимания механизмов контроля доступа и инструментов администрирования. Рассмотрим ключевые аспекты. . .	Что такое HCL Notes и как с ним работать InfoMaster 10.01.2025 HCL Notes (ранее известный как IBM Notes и Lotus Notes) представляет собой комплексную платформу для совместной работы и обмена информацией в корпоративной среде. Это многофункциональное решение,. . .	Как работать с Git из Windows и Visual Studio InfoMaster 10.01.2025 Работа с Git в Windows Работа с Git в операционной системе Windows может быть осуществлена с помощью различных инструментов, каждый из которых обладает своими уникальными возможностями и. . .	Аналог оператора switch case в Python InfoMaster 10.01.2025 Оператор switch case используется в программировании для выбора одного из нескольких вариантов исполнения кода. Однако в языке Python этот оператор отсутствует. Понимание аналогов switch case в. . .	Отличия абстрактного класса от интерфейса InfoMaster 10.01.2025 В современной разработке программного обеспечения существуют два основных механизма реализации абстракции: абстрактные классы и интерфейсы. Эти инструменты, хотя и схожи в своей основной цели -. . .	Как работать в Git InfoMaster 10.01.2025 Git — это одна из наиболее популярных систем контроля версий, которая активно используется разработчиками по всему миру. Она позволяет эффективно управлять изменениями в коде, координировать работу. . .
Реализация передвижения персонажа в Unity3d на C# InfoMaster 10.01.2025 Реализация передвижения персонажа в Unity3D начинается с правильной настройки проекта. Этот этап критически важен для создания отзывчивого и плавного управления. Рассмотрим основные шаги для создания. . .	Docker: руководство для начинающих InfoMaster 10.01.2025 В современном мире разработки программного обеспечения контейнеризация стала неотъемлемой частью процесса создания и развертывания приложений. Docker, как ведущая платформа контейнеризации, произвела. . .	Книги и учебные ресурсы по C# InfoMaster 08.01.2025 Базовые учебники и руководства Одной из лучших книг для начинающих является "C# 10 и . NET 6 для начинающих" Эндрю Троелсена и Филиппа Джепикса . Книга последовательно раскрывает основные концепции. . .	Что такое NullReferenceException и как исправить? InfoMaster 08.01.2025 NullReferenceException - одно из самых распространенных исключений, с которым сталкиваются разработчики на C#. Это исключение возникает при попытке обратиться к членам объекта (методам, свойствам или. . .	Что такое Null Pointer Exception (NPE) и как это исправить? InfoMaster 08.01.2025 Null Pointer Exception (NPE) - это одно из самых распространенных исключений в Java, которое возникает при попытке использовать ссылку на объект, значение которой равно null. Это исключение относится. . .	Русский язык в консоли C++ InfoMaster 08.01.2025 При разработке программ на C++ одной из частых проблем, с которой сталкиваются русскоязычные программисты, является корректное отображение кириллицы в консольных приложениях. Эта проблема особенно. . .

@aleksLesli 0 / 0 / 0 Регистрация: 25.03.2012 Сообщений: 10
		1
	Заменить элементы массива, равные 50, на значение максимального среди положительных элементов. Определить количество замен. 25.03.2012, 18:57. Показов 1830. Ответов 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