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

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

23.02.2010, 17:25. Просмотров 1139. Ответов 3
Метки нет (Все метки)

В одномерном массиве, состоящем из N целочисленных элементов, вычислить: 1.Сумму модулей элементов массива, расположенных после первого элемента, равного нулю.
2.Преобразовать массив таким образом, чтобы в первой его половине располагались элементы, стоявшие в четных позициях, а во второй половине — элементы, стоявшие в нечетных позициях.
Помогите пожалста))
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.02.2010, 17:25
Ответы с готовыми решениями:

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

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

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

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

3
4337 / 1469 / 680
Регистрация: 12.03.2009
Сообщений: 5,310
23.02.2010, 17:40 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
uses crt;
var m,m1:array[1..100]of integer;
i,j,n,k:integer;
 
begin
 clrscr;
 randomize;
 write('N-> ');
 readln(n);
 writeln('Исходный массив');
 for i:=1 to n do
 begin
  m[i]:=-50+random(150);
  write(m[i],' ');
 end;
 
 k:=0;
 for i:=1 to n do if i mod 2=0 then
 begin
  inc(k);
  m1[k]:=m[i];
 end;
 for i:=1 to n do if i mod 2=1 then
 begin
  inc(k);
  m1[k]:=m[i];
 end;
 writeln('Отсортированный массив: ');
 for i:=1 to n do write(m1[i],' ');
 readln;
end.
Добавлено через 4 минуты
1)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses crt;
const n=10;
var m:array[1..n]of integer;
i,k,s:integer;
 
begin
 clrscr;
 write('Введите массив ->');
 for i:=1 to n do read(m[i]);
 readln;
 k:=1;
 while (k<=n) and (m[k]<>0) do inc(k);
 if k>n then writeln('В массиве нет нулей!') else
 begin
  s:=0;
  for i:=k+1 to n do s:=s+abs(m[i]);
  writeln('Сумма модулей = ',s);
 end;
 readln;
end.
0
0 / 0 / 0
Регистрация: 01.06.2010
Сообщений: 12
02.06.2010, 13:23 3
Допишите пожалуйста еще вот это задание к этой проге
0
Модератор
62531 / 46709 / 32193
Регистрация: 18.05.2008
Сообщений: 113,032
02.06.2010, 13:25 4
Цитата Сообщение от Nevill Посмотреть сообщение
еще вот это задание к этой проге
Дописал тем же цветом, что и задание...
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.06.2010, 13:25

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

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

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

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

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


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

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

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