3 / 3 / 0
Регистрация: 10.12.2009
Сообщений: 108

Среднее значение элементов заданного одномерного массива.

16.12.2009, 17:26. Показов 10352. Ответов 17
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
1. Написать программу поиска среднего значения элементов заданного одномерного массива. Найти номер элемента в массиве, который наиболее близок по значению к среднему значению.


2. Написать программу поиска минимального и максимального элемента заданного одномерного массива. Найти сумму элементов массива, расположенных между минимальным и максимальными элементами (включительно)


3. Написать программу построения нового массива, содержащего элементы заданного одномерного массива в инвертированном порядке (первый - последний, второй -перед последний, …). Получить массив, содержащий элементы, являющиеся по элементной суммой заданного и инвертированного массивов.


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


5. Написать программу сортировки элементов заданного одномерного массива. Определить количество операций по перестановке элементов массива в процессе сортировки.


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


7. Написать программу записи текстовых строк в файл, расположенный на магнитном диске. Текстовые строки должны содержать все комбинации числовых символов ХХХ. Символ Х принимает значения символов 0, 1, 2, 3, 4, 5.


8. Написать программу умножения двух заданных квадратных матриц. Результирующую матрицу записать в файл построчно.


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


10. Написать программу поиска номеров строки и столбца минимального и максимального элемента в заданном двухмерном массиве целых чисел. Ответить на вопрос – не находятся ли найденные минимальный и максимальный элемент в одной строке матрицы.


11. Написать программу бинарного поиска заданного значения в упорядоченном одномерном массиве. Определить количество операций сравнения.


12. Написать программу поиска номера строки заданной матрицы, содержащей минимальный элемент. В найденной строке найти максимальный элемент. Вывести номер строки и столбца найденного таким способом элемента.


13. Написать программу умножения двух заданных квадратных матриц. Элементы матриц расположены в двух заданных файлах построчно.


14. Написать программу поиска номера строки и столбца минимального элемента заданной матрицы. Ответить на вопрос – расположен ли найденный минимальный элемент на главной диагонали матрицы.


15. Написать программу поиска номера строки и столбца максимального и минимального элемента заданной матрицы. Построить новую матрицу, которая не содержит строку с минимальным элементом и столбец с максимальным элементом исходной матрицы.


16. Написать программу подсчета количества положительных и отрицательных элементов заданной матрицы. Найти среднее значение всех положительных и всех отрицательных элементов матрицы. Построить новую матрицу такого же размера так, что бы все отрицательные элементы матрицы, меньшие среднего значения отрицательных элементов были заменены на значение 0.


17. Написать программу суммирования всех положительных и отрицательных элементов заданного файла (файл содержит в каждой записи два числа). Найти сумму двух первых и двух последних элементов заданного файла.


18. Написать программу подсчета количества положительных и отрицательных элементов заданного файла (файл содержит в каждой записи два числа). Найти сумму двух первых и двух последних элементов заданного файла.


19. Написать программу нахождения максимального элемента заданного файла (файл содержит в каждой записи два числа). Найти сумму двух первых и двух последних элементов заданного файла.


20. Написать программу перезаписи положительных значений элементов заданного массива в файл (файл должен содержать в каждой записи два числа). Массив строится по формуле: значение n элемента массива есть целая часть от следующего выражения 100*sin(n*PI/180). Здесь PI=3.1415926.


21. Написать программe нахождения количества встречи буквы А и буквы Б в заданном текстовом файле.


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


23. Написать программу суммирования всех положительных элементов заданного файла (файл содержит в каждой записи два числа). Найти сумму двух первых и двух последних элементов заданного файла.


24. Написать программу нахождения количества встречи заданной буквы в заданном текстовом файле.


25. Написать программу поиска номера строки и столбца заданной квадратной матрицы, содержащей минимальный элемент. Ответить на вопрос – лежит ли найденный элемент на побочной диагонали матрицы.

26. Написать программу поиска номера строки и столбца заданной квадратной матрицы, содержащей минимальный элемент. Ответить на вопрос – лежит ли найденный элемент на диагонали матрицы.

27. Написать программу поиска номера строки заданной матрицы, содержащей максимальный элемент. В найденной строке найти минимальный элемент. Вывести номер строки и столбца найденного таким способом элемента.

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

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

30. Написать программу поиска номеров строки и столбца минимального и максимального элемента в заданном двухмерном массиве целых чисел. Ответить на вопрос – не находятся ли найденные минимальный и максимальный элемент в одном столбце матрицы.
1
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
16.12.2009, 17:26
Ответы с готовыми решениями:

Найти среднее значение элементов заданного массива
Найти среднее значение элементов заданного массива размером 5. Преобразовать исходный массив, вычитая из каждого элемента среднее значение

Найти среднее значение элементов заданного массива
Дан массив А(К) . Найти среднее значение элементов заданного массива. Преобразовать исходный массив, вычитая из каждого элемента...

Найти среднее значение элементов заданного массива размером N
подскажите прогу если не сложно)_ Найти среднее значение элементов заданного массива размером N. Преобразовать исходный массив,...

17
16.12.2009, 17:31

Не по теме:

*офигевше* ет чего на целую группу?..

0
Эксперт по компьютерным сетямЭксперт Pascal/Delphi
 Аватар для TAVulator
4191 / 1292 / 237
Регистрация: 27.07.2009
Сообщений: 3,962
16.12.2009, 17:38
советую обратиться в фриланс
0
3 / 3 / 0
Регистрация: 10.12.2009
Сообщений: 108
16.12.2009, 19:27  [ТС]
24- я уже сделала.
пишите кто что знает, хотя бы отрывками..
заранеее спасибо.
0
3316 / 1378 / 110
Регистрация: 28.04.2009
Сообщений: 4,822
16.12.2009, 19:33
задач хватит,чтобы задачник написать.
Часть программ Вы найдете на форуме,т.к. подобные задачи уже решались несколько раз.
0
1915 / 1065 / 384
Регистрация: 06.12.2008
Сообщений: 2,802
16.12.2009, 19:39
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
uses crt;
var a:array[1..100] of integer;
    i,n,min,max,sum:integer;
 begin
  ClrScr;
  Randomize;
  repeat
  Write('n=');
  Readln(n);
  until n>1;
   for i:=1 to n do
    begin
     a[i]:=random(20)-10;
     Write(a[i]:4);
    end;
   min:=1;
   max:=2;
    for i:=1 to n do
     begin
      if a[i]>max then
       max:=a[i];
      if a[i]<min then
       min:=a[i];
     end;
     sum:=0;
    for i:=1 to n do
     sum:=sum+a[i];
   Writeln;
   Writeln('Сумма ',sum);
   Writeln('Минимум ',min);
   Writeln('Максимум ',max);
  Readln;
 end.
2
Платежеспособный зверь
 Аватар для кот Бегемот
8959 / 4384 / 1652
Регистрация: 28.10.2009
Сообщений: 11,629
16.12.2009, 19:56
to Studentka
Сама-то веришь, что кто-то тебе решит 30 задач?
0
 Аватар для Тамила
753 / 546 / 211
Регистрация: 12.11.2009
Сообщений: 1,100
16.12.2009, 20:03
29.
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
uses crt;
var
a,b:array[1..100]of integer;
i,max,n,temp,j,kol,pos:integer;
begin clrscr;
write('n=');
read(n);
for i:=1 to n do
 begin
  write('a[',i,']=');
  read(a[i]);
 end;
max:=a[1];
for i:=1 to n do
if a[i]>max then
 begin
  max:=a[i];
  pos:=i;
 end;
writeln;
writeln('max element=',max,' v posicii=',pos);
writeln;
kol:=0;
for i:=1 to n do
if a[i]<0 then inc(kol);
for i:=1 to n do
for j:=1 to n-1 do
if a[j]>0 then
 begin
  temp:=a[j];
  a[j]:=a[j+1];
  a[j+1]:=temp;
end;
for i:=1 to kol do
 begin
  b[i]:=a[i];
  write(b[i],'  ');
 end;
readkey;
end.
Добавлено через 2 минуты
28.
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
uses crt;
var
a,b:array[1..100]of integer;
i,max,n,temp,j,kol,pos:integer;
begin clrscr;
write('n=');
read(n);
for i:=1 to n do
 begin
  write('a[',i,']=');
  read(a[i]);
 end;
max:=a[1];
for i:=1 to n do
if a[i]>max then
 begin
  max:=a[i];
  pos:=i;
 end;
writeln;
writeln('max element=',max,' v posicii=',pos);
writeln;
kol:=0;
for i:=1 to n do
if a[i]>0 then inc(kol);
for i:=1 to n do
for j:=1 to n-1 do
if a[j]<0 then
 begin
  temp:=a[j];
  a[j]:=a[j+1];
  a[j+1]:=temp;
end;
for i:=1 to kol do
 begin
  b[i]:=a[i];
  write(b[i],'  ');
 end;
readkey;
end.
2
3 / 3 / 0
Регистрация: 10.12.2009
Сообщений: 108
16.12.2009, 20:15  [ТС]
Спасибо, добрые люди!
вы даже не представляете как много вы для меня сделали! я понимаю , что многие из задач не высокой сложности, но не в мою сторону играет время. если б мне это всё дали хотя бы за 2 дня до контрольной(модуля), я бы большинство задач сделала как-то уж ... но мне ещё столько всего делать., что я просто не успеваю!!!

Спасибо! Спасибо!
0
16.12.2009, 20:24

Не по теме:

да ладно задачики то не сложные, набросимся всей сворой, человеку помощь и нам + к рейтингу и опыт!

1
3 / 3 / 0
Регистрация: 10.12.2009
Сообщений: 108
16.12.2009, 21:42  [ТС]
а если на форуме решено много моих задач, то можете сказать где(как называется тема ) или кинуть ссылку. ато я с первого раза не нашла таких же задач )
0
3 / 3 / 0
Регистрация: 10.12.2009
Сообщений: 108
19.12.2009, 21:01  [ТС]
люди!! ну помогите !!! пожалуйста!!!!
кто ещё чё знает- пишите!!
0
 Аватар для Тамила
753 / 546 / 211
Регистрация: 12.11.2009
Сообщений: 1,100
19.12.2009, 21:43
Лучший ответ Сообщение было отмечено как решение

Решение

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
uses crt;
var
a,b:array[1..100]of integer;
i,max,n,kol,pos:integer;
begin clrscr;
write('n=');
read(n);
for i:=1 to n do
 begin
  write('a[',i,']=');
  read(a[i]);
 end;
writeln;
kol:=0;
for i:=1 to n do
if a[i]<0 then
 begin
  b[i]:=a[i];
  inc(kol);
  write(b[i],'  ');
 end;
max:=b[1];
for i:=1 to kol do
if b[i]>max then
 begin
  max:=b[i];
  pos:=i;
 end;
writeln;
writeln('position of max element: [',pos,']');
readkey;
end.
Добавлено через 20 секунд
это №4.

Добавлено через 15 минут
5.
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
52
53
uses crt;
var
 a:array[1..100]of integer;
 i,n,temp,j,kol:integer;
begin clrscr;
 write('n=');
 read(n);
 for i:=1 to n do
  begin
   write('a[',i,']=');
   read(a[i]);
  end;
 writeln;
 writeln('ishodnyi massiv:');
 for i:=1 to n do
 write(a[i],'  ');
kol:=0;
 for i:=1 to n do
 for j:=1 to n-1 do
 if a[j]<a[j+1] then
  begin
   inc(kol);
   temp:=a[j];
   a[j]:=a[j+1];
   a[j+1]:=temp;
  end;
 writeln;
 writeln;
 writeln('uporyadochennyi po ubyvaniyu massiv');
 for i:=1 to n do
 write(a[i],'  ');
 writeln;
 writeln('kol-vo perestanovok=',kol);
 
 kol:=0;
 for i:=1 to n do
 for j:=1 to n-1 do
 if a[j]>a[j+1] then
  begin
   inc(kol);
   temp:=a[j];
   a[j]:=a[j+1];
   a[j+1]:=temp;
  end;
 writeln;
 writeln;
 writeln('uporyadochennyi po vozrastaniyu massiv');
 for i:=1 to n do
 write(a[i],'  ');
 writeln;
 writeln('kol-vo perestanovok=',kol);
 readkey;
end.
Добавлено через 14 минут
10.
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
uses crt;
var
a:array[1..100,1..100]of integer;
i,j,n,m,max,min,pimax,pjmax,pimin,pjmin:integer;
begin clrscr;
write('m='); read(m);
write('n='); read(n);
for i:=1 to m do
for j:=1 to n do
 begin
  write('a[',i,',',j,']=');
  read(a[i,j]);
 end;
writeln;
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j],'  ');
  writeln;
 end;
writeln;
max:=a[1,1];
min:=a[1,1];
for i:=1 to m do
for j:=1 to n do
 begin
  if a[i,j]>max then
   begin
    max:=a[i,j];
    pimax:=i;
    pjmax:=j;
   end;
  if a[i,j]<min then
   begin
    min:=a[i,j];
    pimin:=i;
    pjmin:=j;
   end;
 end;
writeln('min=',min,' :[',pimin,',',pjmin,']');
writeln('max=',max,' :[',pimax,',',pjmax,']');
writeln;
if pimin=pimax then writeln('max i min v odnoi stroke')
else writeln('max i min v raznyh strokah');
readkey;
end.
4
Мат в 32 хода
 Аватар для nikkka
237 / 172 / 18
Регистрация: 10.09.2009
Сообщений: 1,096
19.12.2009, 22:06
21//
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var s:string;
i,k,l:integer;
begin
readln(s);
k:=0;
l:=0;
for i:=1 to length(s) do begin
if s[i]='a' then k:=k+1;
if s[i]='b' then l:=l+1;
end;
writeln('Kolichestvo bukv a - ',k,', kolichestvo bukv b - ',l);
readln;
end.
Добавлено через 10 минут
12//
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
var
a : array [1..n,1..n] of integer;
i,k,l,m,d,min,max:integer;
begin
for i:=1 to n do begin
for k:=1 to n do begin
readln(a[i,k]);
end;
end;
min:=a[1,1];
for i:=1 to n do begin
for k:=1 to n do begin
if a[i,k]<min then min:=a[i,k];
end;
end;
for i:= 1 to n do begin
for k:= 1 to n do begin
if a[i,k]=min then d:=i;
end;
end;
max:=a[1,1];
for k:=1 to n do begin
if a[d,k]>max then max:=a[d,k];
end;
for i:= 1 to n do begin
for k:= 1 to n do begin
if a[d,k]=max then l:=k;
end;
end;
writeln('Nomer stolbca ',d);
writeln('Nomer stroki',l);
readln;
end.
3
3 / 3 / 0
Регистрация: 10.12.2009
Сообщений: 108
19.12.2009, 22:36  [ТС]
СПАСИБОООО!!!!
0
3 / 3 / 0
Регистрация: 10.12.2009
Сообщений: 108
22.12.2009, 15:30  [ТС]
кто-то ещё что-то знает?
0
Мат в 32 хода
 Аватар для nikkka
237 / 172 / 18
Регистрация: 10.09.2009
Сообщений: 1,096
22.12.2009, 18:10
Какой номер надо больше всего, скажите.
Постараюсь решить...

Добавлено через 1 час 1 минуту
27//
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
const n=5;
var
a : array [1..n,1..n] of integer;
i,k,l,d,max,min : integer;
begin
readln(a[i,k]);
max:=a[1,1];
for i:=1 to n do begin
for k:=1 to n do begin
readln(a[i,k]);
if a[i,k]>max then max:=a[i,k];
end;
end;
for i:=1 to n do begin
for k:=1 to n do begin
if a[i,k]=max then l:=i;
end;
end;
min:=a[1,2];
for k:=1 to n do begin
if a[l,k]<min then min:=a[l,k];
end;
for k:=1 to n do begin
if a[l,k]=min then d:=k;
end;
writeln(l,' ',d);
readln;
end.
3
3 / 3 / 0
Регистрация: 10.12.2009
Сообщений: 108
23.12.2009, 20:56  [ТС]
я с файлами плохо ориентируюсь-
ну например задача 6, 7, 17..

Добавлено через 21 час 55 минут
помогите!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
23.12.2009, 20:56
Помогаю со студенческими работами здесь

Вычислить среднее арифметическое значение тех элементов одномерного массива,которые попадают в интервал от -2 до 10.
всем! Пожалуйста помогите решить задачу.Очень надо!ГОС! Вычислить среднее арифметическое значение тех элементов одномерного массива,которые...

Найти среднее значение элементов заданного вещественного массива размером 10
Найти среднее значение элементов заданного вещественного массива размером 10. Элементы массива ввести с клавиатуры. Преобразовать исходный...

Найти среднее значение элементов заданного вещественного массива размером 10
Найти среднее значение элементов заданного вещественного массива размером 10. Элементы массива ввести с клавиатуры. Преобразовать исходный...

Алгоритм поиска количества элементов одномерного массива больших, чем среднее арифметическое значение всех
7. Алгоритм поиска количества элементов одномерного мас- сива больших, чем среднее арифметическое значение всех элементов массива.

Определить среднее значение всех элементов, значение которых превышает среднее для массива
в произвольно заданном одномерном массиве определить среднее значение всех элементов, значение которых превышает среднее значение....


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

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

Новые блоги и статьи
Интеграция Hangfire с RabbitMQ в проектах C#.NET
stackOverflow 18.04.2025
Разработка современных . NET-приложений часто требует выполнения задач "за кулисами". Это может быть отправка email-уведомлений, генерация отчётов, обработка загруженных файлов или синхронизация. . .
Построение эффективных запросов в микросервисной архитектуре: Стратегии и практики
ArchitectMsa 18.04.2025
Микросервисная архитектура принесла с собой много преимуществ — возможность независимого масштабирования сервисов, технологическую гибкость и четкое разграничение ответственности. Но как часто бывает. . .
Префабы в Unity: Использование, хранение, управление
GameUnited 18.04.2025
Префабы — один из краеугольных элементов разработки игр в Unity, представляющий собой шаблоны объектов, которые можно многократно использовать в различных сценах. Они позволяют создавать составные. . .
RabbitMQ как шина данных в интеграционных решениях на C# (с MassTransit)
stackOverflow 18.04.2025
Современный бизнес опирается на множество специализированных программных систем, каждая из которых заточена под решение конкретных задач. CRM управляет отношениями с клиентами, ERP контролирует. . .
Типы в TypeScript
run.dev 18.04.2025
TypeScript представляет собой мощное расширение JavaScript, которое добавляет статическую типизацию в этот динамический язык. В JavaScript, где переменная может свободно менять тип в процессе. . .
Погружение в Kafka: Концепции и примеры на C# с ASP.NET Core
stackOverflow 18.04.2025
Apache Kafka изменила подход к обработке данных в распределенных системах. Эта платформа потоковой передачи данных выходит далеко за рамки обычной шины сообщений, предлагая мощные возможности,. . .
Коммуникация в реальном времени с SignalR в C# на примере создания чата
UnmanagedCoder 17.04.2025
Современный веб стремительно эволюционирует от статичных страниц к динамичным приложениям, где пользователи ожидают мгновенной реакции на свои действия. Представим, что вы отправляете сообщение. . .
Реализация CQRS с MediatR на C# .NET
stackOverflow 17.04.2025
Современная разработка программного обеспечения постоянно ищет пути повышения эффективности организации кода. Архитектурные паттерны появляются, эволюционируют, и те, что проявляют свою. . .
Verilog и интеллектуальная собственность - "глазами" обученной LM модели.
Hrethgir 17.04.2025
В сети встречаются участники, заявляющие что код на Verilog ни о чём не говорит. Но вот патентная практика на самом деле показывает обратное ими утверждаемому. То-есть код на Verilog включают в. . .
Свап-файл дополнительно к разделу (если вдруг не хватает или не создан)
jigi33 17.04.2025
ПОДКЛЮЧЕНИЕ ДОПОЛНИТЕЛЬНОГО SWAP ПРОСТРАНСТВА, Т. О. , РАСШИРЕНИЕ ЕГО РАЗМЕРА В Linux можно использовать как раздел подкачки (swap), так и файл подкачки (swap-файл). Чтобы создать swap-файл вместо. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru