Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/8: Рейтинг темы: голосов - 8, средняя оценка - 4.75
0 / 0 / 0
Регистрация: 13.12.2009
Сообщений: 50
1

Определить номер и значение первого элемента массива, большего числа M

08.02.2010, 17:05. Показов 1567. Ответов 1
Метки нет (Все метки)

1.Дан массив F(n), n<=15.Определить номер и значение первого элемента массива, большего числа M, предполагая , что такой элемент существует. Определить Сумму и количество элементов массива, больших М. Сформировать новый массив, состоящий из номеров элемента,больших М. Вывести на экран исходный и полученный массив.

2. Сформировать массив, на четных местах которого стоят нули , а на нечетных единицы. Количество элементов массива вводит пользователь. Вывести полученный массив на экран.


3.Дан одномерный массив, состоящий из n символов.Отсортируйте его в алфавитном порядке, используя МЕТОД ПУЗЫРЬКА.Вывести на экран исходный и полученный массив!
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.02.2010, 17:05
Ответы с готовыми решениями:

Определить значение максимального элемента матрицы и его координаты (номер строки и номер столбца)
Определить значение максимального элемента матрицы и его координаты (номер строки и номер столбца).

Определить номер первого отрицательного элемента, делящегося на 5 с остатком 2
3.Дан одномерный массив MAS ,состоящий из n целых чисел.Определить номер первого отрицательного...

Найти номер первого четного элемента массива.
Помогите с решением или блок-схемой плиз!!!! Заранее благодарен. Ввести одномерный массив A ,...

Найти номер первого четного элемента массива
дан массив из N целых чисел, найти номер первого четного элемента массива

1
654 / 352 / 113
Регистрация: 11.12.2009
Сообщений: 508
08.02.2010, 18:11 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
uses crt;
var f:array [1..15] of integer;
a:array[1..15] of integer;
i,m,n,s,kol,r:integer;
begin
clrscr;
write('Ââåäèòå ðàçìåð ìàññèâà=');
readln(n);
write('Ââåäèòå m=');
readln(m);
writeln('Èñõîäíûé ìàññèâ');
r:=m;
randomize;
for i:=1 to n do
 begin
  f[i]:=random(51)-10;
  write(f[i]:4);
  if (f[i]>m) then
   begin
    kol:=kol+1;
    s:=s+f[i];
   end;
 end;
writeln;
writeln('Ñóììà ýëåìåíòîâ ìàññèâà, áîëüøèõ ',m,' ðàâíà ',s,', à èõ êîëè÷åñòâî ',kol);
s:=0;
repeat
 begin
  s:=s+1;
  m:=m+1;
  for i:=1 to n do
   if (f[i]=m) then
    begin
     kol:=0;
     break;
    end;
 end;
until (kol=0) or (s=15);
writeln('Ñàìûé ïåðâûé èõ íèõ ',m);
writeln('Íóæíûé ìàññèâ');
for i:=1 to n do
 if (f[i]>r) then
  begin
   a[i]:=i;
   kol:=kol+1;
  end;
for i:=1 to kol do
 write(a[i]:4);
readln
end.
Добавлено через 2 минуты
2:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
uses crt;
var a:array [1..100] of integer;
i,n:integer;
begin
clrscr;
write('Ââåäèòå ðàçìåð ìàññèâà=');
readln(n);
writeln('Íóæíûé ìàññèâ');
for i:=1 to n do
 if (odd(i)=false) then a[i]:=0 else
 a[i]:=1;
for i:=1 to n do
 write(a[i]:4);
readln
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.02.2010, 18:11

Найти номер первого четного элемента массива
Дан массив из N целых чисел. Найти номер первого четного элемента

На главной диагонали матрицы В (m на m) определить номер первого отрицательного элемента
На главной диагонали матрицы В (m на m) определить номер первого отрицательного элемента. Строку...

Найти значение максимального первого элемента матрицы, а также номер строки и столбца
Пусть матрица А целых чисел 100 на 100 записана по строкам в файли.Знайты значения максимального...

Найти порядковый номер первого элемента массива, кратного 5
вот еще задачки: 6. Условие: Используя оператор цикла, вводить с клавиатуры числа и выполнять с...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru