Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Катюньк
0 / 0 / 0
Регистрация: 22.04.2010
Сообщений: 6
1

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

22.04.2010, 19:21. Просмотров 914. Ответов 1
Метки нет (Все метки)

В одномерном массиве, состоящем из п вещественных элементов, вычислить:

1. Сумму элементов массива, расположенных между первым и последним отри¬цательными элементами.
2. Сжать массив, удалив из него все элементы, модуль которых не превышает еди¬ницу. Освободившиеся в конце массива элементы заполнить нулями.
3. вывести первый и последний отрицательные элементы
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.04.2010, 19:21
Ответы с готовыми решениями:

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

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

Найти сумму элементов массива, расположенных между первым и последним нулевыми элементами
Всем привет помогите с задачей из раздела массива. Если можно подробно каждое...

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

Найти сумму элементов массива, расположенных между первым и последним нулевыми элементами
Дан одномерный массив, состоящий из вещественных элементов. Найти сумму...

1
Snoopy
1912 / 1071 / 383
Регистрация: 06.12.2008
Сообщений: 2,802
22.04.2010, 19:39 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

1
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
for i:=1 to n do
 if a[i]<0 then
  begin
   ik:=i;
   break;
  end;
for i:=ik+1 to n do
 if a[i]<0 then
  ik1:=i;
s:=0;
for i:=ik+1 to ik1-1 do
 s:=s+a[i];
Добавлено через 13 минут
полностью все задания...
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
uses crt;
const n=10;
var a:array[1..n] of real;
    i,ik1,ik2:integer;
    s:real;
 
procedure pop(k:integer);
var j:integer;
begin
 for j:=k+1 to n do
  a[j-1]:=a[j];
 a[n]:=0;
end;
 
begin
ClrScr;
Randomize;
for i:=1 to n do
 begin
  a[i]:=-10.5+random(20);
  Write(a[i]:5:1);
 end;
Writeln;
for i:=1 to n do
 if a[i]<0 then
  begin
   ik1:=i;
   break;
  end;
for i:=ik1+1 to n do
 if a[i]<0 then
  ik2:=i;
s:=0;
for i:=ik1+1 to ik2-1 do
 s:=s+a[i];
Writeln('Ik1=',ik1);
Writeln('Ik2=',ik2);
Writeln('S=',s:0:1);
for i:=1 to n do
 if abs(a[i])<1 then
  pop(i);
for i:=1 to n do
 Write(a[i]:5:1);
Readln;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.04.2010, 19:39

Вычислить сумму элементов массива, расположенных между первым и вторым отрицательными элементами
Задание: &quot;Вычислить сумму элементов массива, расположенных между первым и...

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

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


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

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

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