Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
Artiom55
0 / 0 / 0
Регистрация: 29.04.2010
Сообщений: 27
#1

Определить,если в данном массиве строка в которой имеется два максимальных элемента всего массива

30.04.2010, 09:30. Просмотров 1275. Ответов 3
Метки нет (Все метки)

I)дан массив целых чисел ( n= 10 ), заполненных случайным образом числами из промежутка [ -40.30].
1) удалить из него все элемнты , которые состоят из одинаковых циифр ( включая однозначные числа).
2) вставить число k перед всеми элементами,в которых есть цифра один ( k - с клавиатуры).
3) переставить первые три и последние три элемента местами, сохроняя их следование.
II)2)дан двумерный массив NxM заполненный случайными числами.Определить,если в данном массиве строка в которой имеется два максимальных элемента всего массива.
помогите плиЗ

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.04.2010, 09:30
Ответы с готовыми решениями:

Определить, есть ли в данном массиве строка, в которой имеется два максимальных элемента всего массива
Дан двумерный массив размерностью n х m, заполненный случайными...

Определить, есть ли в данном массиве строка, в которой имеется два максимальных элемента
Помогите решить задачу на паскаль((( Дан двумерный массив размером n*m,...

Определить, есть ли в данном массиве строка, в которой ровно два отрицательных элемента.
дан двумерный массив размером NxM, заполненный случайным образом. Определить,...

Удалить из массива элемент, стоящий в центре (если количество элементов в массиве чётное, то удалить средние два элемента).
Удалить из массива элемент, стоящий в центре (если количество элементов в...

Определить есть ли в данном массиве строка состоящая только из элементов, принадлежащих промежутку от А до B
определить есть ли в данном массиве строка состоящая только из элементов,...

3
unick12345
1344 / 1035 / 152
Регистрация: 27.03.2009
Сообщений: 3,866
30.04.2010, 10:07 #2
1.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
program test;
uses crt;
var a,b,c:array[1..10] of integer;s:string;
i,j,k,l,m,p:integer;
begin
clrscr;
randomize;
j:=0;
k:=1;
writeln('Punkt 1');
for i:=1 to 10 do
begin
p:=0;
a[i]:=-1*random(40)+30;{1}
write(a[i],' ');
if abs(a[i])>10 then   {2}
if (abs(a[i]) mod 10)<>(abs(a[i]) div 10) then
begin
inc(j);
b[j]:=a[i];
end;
str(abs(a[i]),s);     {3}
for l:=1 to length(s) do
if s[l]='1' then p:=1;
if p=1 then
begin
s:='1'+s;
val(s,c[i],m);
end
else c[i]:=a[i];
end;
writeln;
writeln('punkt 2');
for i:=1 to j do
write(b[i],' ');
writeln;
writeln('Punkt 3');
for i:=1 to 10 do
write(c[i],' ');
for i:=1 to 3 do        {4}
begin
j:=a[i];
a[i]:=a[i+7];
a[i+7]:=j;
end;
writeln;
writeln('Punkt 4');
for i:=1 to 10 do
write(a[i],' ');
readln;
end.
1
AI\EKCAH^P
105 / 102 / 88
Регистрация: 18.05.2009
Сообщений: 201
30.04.2010, 10:08 #3
2.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
program massiv;
var
mas:array[1..100,1..100] of integer;
i,j,max:integer;
n,m,kol,index:integer;
begin
  randomize;
  writeln('введите размерность массива через пробел ');readln(n,m);
  max:=mas[1,1];
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      mas[i,j]:=random(11)-5;
      write(mas[i,j]:4);
      if mas[i,j]>=max then max:=mas[i,j];
    end;
    writeln;
  end;
  writeln('максимальный элемент равен ',max);
    kol:=0;
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      if mas[i,j]=max then
      begin
        kol:=kol+1;
        if kol=2 then
        begin
          index:=i;
          writeln('два максимальных элемента в ',index,' -ой строке');
        end;
      end;
    end;
  end;
  readln;
end.
1
unick12345
1344 / 1035 / 152
Регистрация: 27.03.2009
Сообщений: 3,866
30.04.2010, 10:13 #4
извиняюсь. немного перепутал с интервалом.
вот
Pascal
1
a[i]:=random(70)-40;{1}
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.04.2010, 10:13

Заполнить массив случайными числами и найти два максимальных элемента массива и их номера
Прошу помощи в выводе номеров двух максимальных в массиве. Добавлено через...

Имеется два массива строк, если имеются одинаковые элементы в массивах , создать из них новый массив
товарищи програмисты помогите студенту срочно нужно решить вот эти задачки они...

Сколько элементов кратных 5 имеется в данном массиве
Помогите мне, пожалуйста, написать вот эти задачи: 3. Сколько элементов...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru