Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.87/15: Рейтинг темы: голосов - 15, средняя оценка - 4.87
Dnshost
1

В массиве М из 10 целых чисел найти количество повторяющихся элементов

04.02.2012, 19:56. Просмотров 3068. Ответов 3
Метки нет (Все метки)


Помогите решить 6 задач по одномерным массивам пожалуйста.

1)Для массива K из 12 вещественных чисел оределить число соседств двух положительных чисел.

2)В массиве М из 10 целых чисел найти количество повторяющихся элементов

3)В массиве из 8 целых чисел переставить максимальный элемент на первое место, а элементы с первого до максмального сдвинуть на одну позицию вправо.

4)В массиве из 12 целых чисел найти количество и сумму элементов, расположенных до максимального элемента.

5)В массиве из 10 вещественных чисел поменять местами первый и максимальный по модулю элемент.

6)Для массива из 15 вещественных чисел указать номер элемента , сумма которого со следующим за ним максимальна.


Буду Безгранично благодарен за обращённое внимание на эту тему.
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.02.2012, 19:56
Ответы с готовыми решениями:

В заданном одномерном массиве из n элементов найти количество повторяющихся чисел
В заданном одномерном массиве из n элементов найти количество повторяющихся чисел. Он выводит если...

В массиве целых чисел найти сумму элементов, кратных 3 и 5, количество элементов и др.
1. Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка...

В заданном массиве целых чисел найти количество нечётных элементов и произведение чисел, расположенных до минимума
Задан массив целых чисел P(n) . Найти - количество нечётных элементов массива; - произведение...

В массиве целых чисел найти количество четных положительных элементов
Всем привет! Помогите пожалуйста решить задачу на c#. Буду очень благодарен! В массиве А из 12...

3
iOS/Android Developer
Эксперт С++
5132 / 1569 / 952
Регистрация: 23.01.2011
Сообщений: 3,192
04.02.2012, 20:04 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Цитата Сообщение от Dnshost Посмотреть сообщение
4)В массиве из 12 целых чисел найти количество и сумму элементов, расположенных до максимального элемента
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
const
 n = 12;
var
 arr: array[1..n] of integer;
 i, max, sum: integer;
begin
 max:=1;
  for i:=1 to n do
   begin
    arr[i]:=random(20)+1;
    write(arr[i], ' ');
     if arr[i] > arr[max] then max:=i;
   end;
 writeln;
 writeln('Максимальный: ', arr[max]);
  for i:=1 to max-1 do
   inc(sum, arr[i]);
 writeln('Кол-во элементов до максимального: ', max-1, '; Их сумма: ', sum);
end.
Добавлено через 1 минуту
Цитата Сообщение от Dnshost Посмотреть сообщение
5)В массиве из 10 вещественных чисел поменять местами первый и максимальный по модулю элемент.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
const
 n = 10;
var
 arr: array[1..n] of integer;
 i, max, buf: integer;
begin
 max:=1;
  for i:=1 to n do
   begin
    arr[i]:=random(20)+1;
    write(arr[i], ' ');
     if arr[i] > arr[max] then max:=i;
   end;
 writeln;
 writeln('Максимальный: ', arr[max]);
 buf:=arr[1];
 arr[1]:=arr[max];
 arr[max]:=buf;
 writeln('Измененный массив: ');
  for i:=1 to n do
   write(arr[i], ' ');
end.
Добавлено через 2 минуты
Цитата Сообщение от Dnshost Посмотреть сообщение
3)В массиве из 8 целых чисел переставить максимальный элемент на первое место, а элементы с первого до максмального сдвинуть на одну позицию вправо.
перестановку первого и максимального посмотрите в моем решении 5 задачи, а сдвиги поищите здесь..там много полезного, а уж с вопросами пишите, будем помогать
1
Фрилансер
Эксперт С++
5843 / 1224 / 499
Регистрация: 23.11.2010
Сообщений: 3,377
Записей в блоге: 1
04.02.2012, 23:15 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Цитата Сообщение от Dnshost Посмотреть сообщение
2)В массиве М из 10 целых чисел найти количество повторяющихся элементов

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program ProgName;
const
  n = 10;
var
  arr: array[1..n] of Integer;
  i, Cnt: Integer;
  SoB: set of Byte;
begin
  for i:=1 to n do
    readln(arr[i]);
  Cnt:=0; SoB:=[];
  for i:= 1 to n do
    if arr[i] in SoB then
      inc(Cnt)
    else
      include(SoB, arr[i]);
  writeln('Cnt = ', Cnt);
end.
1
trainspotting
1084 / 484 / 384
Регистрация: 11.11.2010
Сообщений: 773
04.02.2012, 23:31 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Цитата Сообщение от Dnshost Посмотреть сообщение
Для массива K из 12 вещественных чисел оределить число соседств двух положительных чисел.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
const
  n=12;
type
  Tarr=array[1..n] of integer;
var
  a:Tarr;
  i,k:integer;
begin
  randomize;
  writeln('Ishodniy massiv:');
  for i:=1 to n do
    begin
      a[i]:=-10+random(21);
      write(a[i]:4);
    end;
  writeln;
  k:=0;
  for i:=2 to n do
    if (a[i]>0) and (a[i-1]>0) then
      inc(k);
  write('Kol-vo sosedstv polozh.=',k);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.02.2012, 23:31

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

В двумерном массиве целых чисел найти количество отрицательных элементов
В двумерном массиве B(n*m)целых чисел найти отрицательных элементов.

В чем ошибка? В массиве целых чисел найти количество максимальных элементов
#include <stdio.h> #include <stdlib.h> #include <time.h> #define N 16 #define A 0 #define B 5...

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

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

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

В массиве целых чисел с помощью рекурсивной функции найти количество элементов начинающихся на 3
Требуется определить массив целых чисел (например, размера 30) заполнить его случайными числами и...


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

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

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