Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
0 / 0 / 0
Регистрация: 30.04.2012
Сообщений: 9
1

Найти сумму модулей элементов, расположенных после первого элемента, равного 0

30.04.2012, 17:44. Просмотров 1145. Ответов 1
Метки нет (Все метки)


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

помогите решить через проуедуры и функции пожалуйста.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.04.2012, 17:44
Ответы с готовыми решениями:

Найти сумму модулей элементов массива, расположенных после первого элемента, равного 0
Доброго времени суток, Уважаемые формучане! Необходима помощь. Одномерные массивы В...

Найти сумму модулей элементов массива, расположенных после первого элемента, равного нулю
В одномерном массиве, состоящем из n целочисленных элементов, вычислить: 1) минимальный по модулю...

Найти сумму модулей элементов массива, расположенных после первого элемента, равного нулю
В одномерном массиве, состоящем из N целочисленных элементов, вычислить: 1.Сумму модулей элементов...

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

1
1294 / 466 / 151
Регистрация: 24.08.2011
Сообщений: 2,249
30.04.2012, 21:47 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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
uses crt;
 
var a: array [1..100] of integer;
    n: integer;
 
procedure zapolni;
var i: integer;
begin
write('Ishodnyi massiv: ');
for i:=1 to n do
 begin
 a[i]:=random(51)-25;
 write(a[i],' ');
 end;
writeln;
end;
 
function min: integer;
var m,i: integer;
begin
m:=a[1];
for i:=2 to n do
 if abs(a[i]) < abs(m) then m:=a[i];
min:=m;
end;
 
function sum: integer;
var i,j,s: integer;
begin s:=0;
for i:=1 to n-1 do
 if a[i] = 0 then
  begin
  for j:=i+1 to n do inc(s,a[j]);
  break;
  end;
sum:=s;
end;
 
procedure preobrazui;
var b: array [1..100] of integer;
    i,j: integer;
begin j:=1;
for i:=2 to n do
 if not odd(i) then
  begin
  b[j]:=a[i];
  inc(j);
  end;
for i:=1 to n do
 if odd(i) then
  begin
  b[j]:=a[i];
  inc(j);
  end;
for i:=1 to n do write(b[i],' ');
end;
 
 
begin clrscr; randomize;
write('n = '); readln(n);
zapolni;
writeln('Minimalinyi po modulu element = ',min);
writeln('Summa posle pervogo nulia = ',sum);
write('Preobrazovannyi massiv:'); preobrazui;
readkey; end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.04.2012, 21:47

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

Найти Сумму модулей элементов массива, расположенных после первого отрицательного элемента
Сумму модулей элементов массива, расположенных после первого отрицательного элемента . Диапазон (...

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

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

Найти сумму элементов массива, расположенных после последнего элемента, равного нулю
В одномерном массиве, состоящем из n целочисленных элементов, вычислить: 1. Количество...


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

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

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