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

Вычислить максимальный нечетный элемент массива

13.01.2010, 13:30. Просмотров 1237. Ответов 6
Метки нет (Все метки)

Помогите плз написать такие программы:
В одномерном массиве, состоящим из N вещественных элементов,
-вычислить максимальный нечетный элемент массива.
-вычислить произведение отрицательных элементов массива, расположенных после первого четного элемента.
-вычислить произведение модулей элементов, расположенных после первого нулевого элемента.
-найти сумму элементов, величины которых находятся на интервале [a, b] число 5 и вычесть 3 в противном случае.
-вычислить максимальный четный элемент массива.
-вычислить произведение модулей элементов, расположенных после первого нулевого элемента.
-добавить к элементам, величины которых находится на интервале [a, b] число 12 и разделить на 2 в противном случае.
-вычислить максимальный нечетный элемент массива.
-вычислить сумму положительных элементов массива, расположенных после первого отрицательное элемента.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.01.2010, 13:30
Ответы с готовыми решениями:

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

В одномерном массиве вычислить максимальный элемент массива.
1.В одномерном массиве, состоящий из n элементов, вычислить: -Максимальный...

Вычислить максимальный элемент массива и поменять его местами с первым
program massiv; uses crt; var a:array of integer; max,i,n:integer; begin...

Найти минимальный элемент из элем массива с нечетными номерами и максимальный элемент элементов с четными
4) Одномерный массив, состоящий из n элементов, заполняется введенными с...

Заменить все отрицательные элементы массива на максимальный элемент массива
Дан одномерный массив из N элементов. Заменить все его отрицательные элементы...

6
lera8
634 / 217 / 63
Регистрация: 03.11.2009
Сообщений: 488
13.01.2010, 14:34 #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
{В одномерном массиве, состоящим из N вещественных элементов,
-вычислить максимальный нечетный элемент массива.}
var
a:array [1..20] of real;
i,imax,n:integer;
max:real;
begin
   writeln('Ввведите размер массива');
   readln(n);
 {}
  for i:=1 to n do
    a[i]:=random*8-2;
    writeln('Исходный массив');
  for i:=1 to n do
    write(a[i]:5:2,' ');
    writeln;
  imax:=1;
  max:=a[1];
    for i:=2 to n do
      if (a[i]>max) and (i mod 2<>0) then
        begin
          max:=a[i]; imax:=i;
        end;
    writeln('Максимальный нечётный элемент ',max:5:2,'стоит на',imax,' месте');
end.
Добавлено через 7 минут
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
{-вычислить произведение отрицательных элементов массива,
расположенных после первого четного элемента.}
var
a:array [1..20] of integer;
i,k,n,pr:integer;
begin
   writeln('Ввведите размер массива');
   readln(n);
 {Заполнение и вывод массива}
 Randomize;
  for i:=1 to n do
    a[i]:=random(100)-40;
    writeln('Исходный массив');
  for i:=1 to n do
     write(a[i]:5);
      writeln;
  pr:=1;
    for i:=1 to n do
      if (a[i] mod 2=0) then begin
         k:=i; break;
      end;
    for i:=k to n do
      if a[i]<0 then
        pr:=pr*a[i];
  writeln('Произведение:',pr);
end.
Добавлено через 4 минуты
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
{-вычислить сумму положительных элементов массива,
расположенных после первого отрицательное элемента.}
var
a:array [1..20] of integer;
i,k,n,sum:integer;
begin
   writeln('Ввведите размер массива');
   readln(n);
 {Заполнение и вывод массива}
 Randomize;
  for i:=1 to n do
    a[i]:=random(100)-40;
    writeln('Исходный массив');
  for i:=1 to n do
     write(a[i]:5);
      writeln;
  sum:=0;
    for i:=1 to n do
      if (a[i]< 0) then begin
         k:=i; break;
      end;
    for i:=k to n do
      if a[i]>0 then
        sum:=sum+a[i];
  writeln('Сумма:',sum);
end.
Добавлено через 21 минуту
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
{-вычислить произведение модулей элементов,
расположенных после первого нулевого элемента.}
var
a:array [1..20] of integer;
i,k,n,pr:integer;
begin
   writeln('Ввведите размер массива');
   readln(n);
 {Заполнение и вывод массива}
  for i:=1 to n do begin
    write('a[',i,']=');
    readln(a[i]);
  end;
    writeln('Исходный массив');
  for i:=1 to n do
     write(a[i]:5);
      writeln;
  k:=0;
  pr:=1;
    for i:=1 to n do
      if a[i]=0 then begin
         k:=i; break;
      end;
      if k=0 then writeln('Нулевых элементов нет')
       else
         for i:=k+1 to n do
           pr:=pr*abs(a[i]);
      writeln('Произведение модулей:',pr);
end.
Для первой задачи я сделала так:нашла максимальный элемент, стоящий на нечётном месте.Потому что в условие в самом начале непонятно:
Цитата Сообщение от bennito Посмотреть сообщение
В одномерном массиве, состоящим из N вещественных элементов
Вот это условие я не поняла:
Цитата Сообщение от bennito Посмотреть сообщение
-найти сумму элементов, величины которых находятся на интервале [a, b] число 5 и вычесть 3 в противном случае.
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
{-добавить к элементам, величины которых находится
на интервале [a, b] число 12 и разделить на 2 в противном случае.}
var
a:array [1..20] of integer; {Это решение для целочисленного значения элементов массива}
i,n,c,b:integer;
begin
   writeln('Ввведите размер массива');
   readln(n);
   writeln('Введите границы отрезка c и b');
   readln(c,b);
 {Заполнение и вывод массива}
  for i:=1 to n do begin
    write('a[',i,']=');
    readln(a[i]);
  end;
    writeln('Исходный массив');
  for i:=1 to n do
     write(a[i]:5);
      writeln;
    for i:=1 to n do
      if a[i] in [c..b] then
         a[i]:=a[i]+12
       else a[i]:=a[i]div 2;
    writeln('Преобразованный массив');
  for i:=1 to n do
     write(a[i]:5);
end.
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
{-добавить к элементам, величины которых находится
на интервале [a, b] число 12 и разделить на 2 в противном случае.}
var
a:array [1..20] of real; {Это решение если тип элементов массива вещественный}
i,n,c,b:integer;
begin
   writeln('Ввведите размер массива');
   readln(n);
   writeln('Введите границы отрезка c и b');
   readln(c,b);
 {Заполнение и вывод массива}
  for i:=1 to n do begin
    write('a[',i,']=');
    readln(a[i]);
  end;
    writeln('Исходный массив');
  for i:=1 to n do
     write(a[i]:5:2);
      writeln;
    for i:=1 to n do
      if (a[i]>=c) and (a[i]<=b)  then
         a[i]:=a[i]+12
       else a[i]:=a[i]/2;
    writeln('Преобразованный массив');
  for i:=1 to n do
     write(a[i]:5:2,'  ');
end.
1
bennito
0 / 0 / 0
Регистрация: 13.01.2010
Сообщений: 3
13.01.2010, 15:35  [ТС] #3
сорі ето должно біть так:-додати до всіх елементів, величины которых находятся на интервале [a, b] число 5 и вычесть 3 в противном случае.
0
lera8
634 / 217 / 63
Регистрация: 03.11.2009
Сообщений: 488
13.01.2010, 15:40 #4
Цитата Сообщение от bennito Посмотреть сообщение
сорі ето должно біть так:-додати до всіх елементів, величины которых находятся на интервале [a, b] число 5 и вычесть 3 в противном случае.
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
var
a:array [1..20] of real; {Это решение если тип элементов массива вещественный}
i,n,c,b:integer;
begin
   writeln('Ввведите размер массива');
   readln(n);
   writeln('Введите границы отрезка c и b');
   readln(c,b);
 {Заполнение и вывод массива}
  for i:=1 to n do begin
    write('a[',i,']=');
    readln(a[i]);
  end;
    writeln('Исходный массив');
  for i:=1 to n do
     write(a[i]:5:2);
      writeln;
    for i:=1 to n do
      if (a[i]>=c) and (a[i]<=b)  then
         a[i]:=a[i]+5
       else a[i]:=a[i]-3;
    writeln('Преобразованный массив');
  for i:=1 to n do
     write(a[i]:5:2,'  ');
end.
Если не понятно спрашивайте
1
bennito
0 / 0 / 0
Регистрация: 13.01.2010
Сообщений: 3
13.01.2010, 21:08  [ТС] #5
біг спс Лера.
0
lera8
634 / 217 / 63
Регистрация: 03.11.2009
Сообщений: 488
13.01.2010, 21:12 #6
Пожалуйста=)
0
Vicky
0 / 0 / 0
Регистрация: 09.11.2011
Сообщений: 56
20.01.2012, 17:27 #7
В задании было
-вычислить произведение модулей элементов, расположенных после первого нулевого элемента.
У меня похожее, но надо найти элементы после последнего нулевого значения. Не подскажите, как будет выглядеть код? Заранее спасибо.)
0
20.01.2012, 17:27
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.01.2012, 17:27

В матрице X(3,4), T(7,8) максимальный элемент этого массива заменить суммой положительных элементов массива
В матрице X(3,4), T(7,8) максимальный элемент этого массива заменить суммой...

Вычислить максимальный по модулю элемент матрицы
Необходимо ввод исходных данных и их контрольный вывод оформить как процедуры,...

Заменить на единицы все элементы массива, значения которых больше 3 , если максимальный элемент массива имеет значение от 0 до 5
Помогите пожалуйста решить 2 задачи... 1) Если сумма значений элементов с...


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

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

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