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

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

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 10.05.2012, 15:17   #1
mishgun1906
Новичок
Джуниор
 
Регистрация: 10.05.2012
Сообщений: 2
По умолчанию Контрольная работа по теме массивы

1) Создать двумерный массив случайных чисел A [1..10,1..10]. в каждой строке этого массива найти наибольший элемент и записать его в линейный массив B [1..10]. Вывести оба массива.
2) Определить, сколько разных элементов содержит данный массив.Записать в порядке возрастания порядковые номера равных элементов массива.
mishgun1906 вне форума Ответить с цитированием
Старый 10.05.2012, 16:23   #2
Rififi
Старожил
 
Регистрация: 19.08.2009
Сообщений: 2,120
По умолчанию

А где решение? Если решения не будет, то получите два.
Rififi вне форума Ответить с цитированием
Старый 10.05.2012, 16:27   #3
mishgun1906
Новичок
Джуниор
 
Регистрация: 10.05.2012
Сообщений: 2
По умолчанию

мне нужно на писать вторую задачу помогите пожалуйста
mishgun1906 вне форума Ответить с цитированием
Старый 12.05.2012, 01:29   #4
Arhangel7
Пользователь
 
Регистрация: 27.02.2010
Сообщений: 90
По умолчанию

Код:
var
  i2, i:integer;
  znak: set of char;
  mass: array [1..10] of char;
begin
  i2:=0;
  znak:=[];
  for i:=1 to 10 do
  begin
    if not (mass[i] in znak) then
    begin
      inc(I2);
      Include(znak, mass[i]);
    end;
  end;
  if I2>=2 then writeln(inttostr(I2)+' разных элементов содержит данный массив');
  if i2<2 then writeln('данный массив не содержит разных элементов');
end.
это первая половина второго вопроса.
как-то так

Последний раз редактировалось Arhangel7; 12.05.2012 в 01:39.
Arhangel7 вне форума Ответить с цитированием
Старый 12.05.2012, 09:48   #5
tmtm
Пользователь
 
Регистрация: 12.05.2012
Сообщений: 20
По умолчанию

Код:
program pas1;
uses crt;
var
 A: array[1..10] of integer;
 N: integer;
 I, J: integer;
 K1, K2: integer;
 F: boolean;
begin
 write('N=');
 readln(N);
 for I:=1 to N do
  begin
   write('(',I,')=');
   readln(A[I]);
  end;
 K1:=0;
 for I:=1 to N do
 begin
  F:=TRUE;
  for J:=1 to I-1 do
   if A[I]=A[J] then
    begin
      F:=FALSE;
      break;
    end;
  if Not F then
   write(I, ' ')
  else
  begin
   Inc(K1);
   for J:=I+1 to N do
    if A[I]=A[j] then
     begin
      write(I, ' ');
      break;
     end;
  end;
 end;
 writeln;
 writeln('Kol-vo raznykh znachenii: ', K1);
end.
Если правильно понял условие...
tmtm вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Контрольная работа Vart Microsoft Office Excel 1 20.06.2011 10:13
Контрольная работа KostyaS Помощь студентам 3 21.04.2011 23:44
Задача по теме массивы. Chuu1904 Паскаль, Turbo Pascal, PascalABC.NET 4 18.03.2011 15:24
контрольная работа ГалинаБ Помощь студентам 17 19.01.2011 01:30
переделка задачи по теме двумерные массивы. Hostlman Общие вопросы Delphi 1 22.12.2007 22:56