Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 04.02.2009, 22:58   #1
netcher
Пользователь
 
Регистрация: 04.02.2009
Сообщений: 21
Сообщение Paskal

Помогите решить 2 задачи
1. Максимальный елемент поменять местами с другим нулевым
2. Останній від'ємний елемент замінити найбільшим
netcher вне форума Ответить с цитированием
Старый 04.02.2009, 23:12   #2
Манжосов Денис :)
Участник клуба
 
Регистрация: 29.01.2008
Сообщений: 1,039
По умолчанию

Макс. элемент массива или чего?
Цитата:
Максимальный елемент поменять местами с другим нулевым
Код:
program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
type MyArray = array [1..100] of integer;

procedure Change(a: MyArray);
var i,Max, Zero, x: integer;
begin
Zero := 0;
  Max := a[1];
  for i:=1 to 100 do
    begin
      if a[i] > Max then Max := a[i];
      if a[i] = 0 then Zero := i;
    end;
  x := Max;
  a[Zero] := x;
  Max := a[zero];
 end;

begin

end.[Zero];
end;
P.S. Пожалуйста, не поленитесь и переведите вторую задачу.
Манжосов Денис :) вне форума Ответить с цитированием
Старый 04.02.2009, 23:19   #3
netcher
Пользователь
 
Регистрация: 04.02.2009
Сообщений: 21
По умолчанию

елемент-число
2. Последний отрицательный елемент заменить найбольшим
netcher вне форума Ответить с цитированием
Старый 05.02.2009, 02:04   #4
alex_fcsm
Участник клуба
 
Аватар для alex_fcsm
 
Регистрация: 10.11.2008
Сообщений: 1,502
По умолчанию

Код:
const n=10;
var max,otr,i:integer;
    a:array[1..n] of integer;
    
    
begin
for i:=1 to n do
 begin
 a[i]:=random(100)-random(100);
 write(a[i],' ');
 end;
 writeln;
 max:=1;
 otr:=0;
 for i:=1 to n do
  begin
   if a[i]>a[max] then max:=i;
   if a[i]<0 then otr:=i;
  end;
  if otr<>0 then a[otr]:=a[max];
 for i:=1 to n do
  write(a[i],' ');
end.
Нормальное состояние техники - нерабочее, все остальное частный случай.
alex_fcsm вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Turbo Paskal Dimon.ru Помощь студентам 1 04.01.2009 17:54
Paskal.Матрица Стасек Помощь студентам 3 21.01.2008 18:28
Paskal-Cikly Kira Помощь студентам 1 05.04.2007 18:32
Paskal. Числовая последовательность. Flash_ Помощь студентам 10 18.01.2007 16:52