Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Кукук
0 / 0 / 2
Регистрация: 13.05.2016
Сообщений: 9
#1

Вычислить сумму элементов массива с нечетными номерами - Turbo Pascal

13.05.2016, 04:22. Просмотров 319. Ответов 2
Метки нет (Все метки)

В одномерном массиве, состоящем из п вещественных элементов, вычислить:
1. Сумму элементов массива с нечетными номерами.
2. Сумму элементов массива, расположенных между первым и последним отри¬цательными элементами.
Сжать массив, удалив из него все элементы, модуль которых не превышает еди¬ницу. Освободившиеся в конце массива элементы заполнить нулями.


только 1 получилось, помогите пожалуйста
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program tema1;
const n=10;
var a:array[1..n] of integer;
i,s:integer;
begin
randomize;
s:=0;
for i:=1 to n do
begin
a[i]:=random(9)+2; {массив заполняется случайными числами из интервала от 2 до 10}
write(a[i],' '); {вывод текущего элемента массива на экран, все элементы выводятся в строку через пробел}
if i mod 2=0 then s:=s+a[i]; {подсчет суммы элементов массива с нечетными номерами}
end;
writeln;
writeln('s=',s); {вывод значения суммы элементов с нечетными номерами на экран}
end;
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.05.2016, 04:22
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Вычислить сумму элементов массива с нечетными номерами (Turbo Pascal):

Вычислить сумму элементов массива с нечетными номерами
Здравствуйте! Помогите пожалуйста написать программу. Срочно нужно сдать. В...

Вычислить сумму элементов массива с нечетными номерами
1. Цель работы Изучить способы представления массивов в памяти ЭВМ, получить...

Процедуры и функции. Вычислить сумму элементов с нечетными номерами
курсанты просят помощь! выручайте пожалуйста! :'( процедуры и функции.. в...

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

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

Вычислить сумму натуральных логарифмов положительных элементов с нечетными номерами , подсчитать их количество
Написать программу в Turbo Pascal по заданному условию. Вычислить сумму...

2
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
3755 / 2452 / 2034
Регистрация: 22.11.2013
Сообщений: 6,821
13.05.2016, 11:28 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
const n=10; W=6; D=2;
var
  a: array [1..n] of Real;
  s: Real;
  i, j: Integer;
begin
  Randomize;
  for i:=1 to n do a[i]:=-5+10*Random;
  Write('A ='); for i:=1 to n do Write(a[i]:W:D); WriteLn;
  s:=0; i:=1; while i<=n do begin s:=s+a[i]; Inc(i,2); end;
  WriteLn('Сумма элементов с нечетным номером: ',s:0:D);
  i:=1; while (i<=n) and (a[i]>=0) do Inc(i);
  j:=n; while (j>=1) and (a[j]>=0) do Dec(j);
  s:=0; for i:=i+1 to j-1 do s:=s+a[i];
  WriteLn('Сумма элементов между первым и последним отрицательными: ',s:0:D);
  j:=1; for i:=1 to n do if Abs(a[i])>1 then begin a[j]:=a[i]; Inc(j); end;
  for i:=j to n do a[i]:=0;
  Write('A''='); for i:=1 to n do Write(a[i]:W:D); WriteLn;
end.
0
Кукук
0 / 0 / 2
Регистрация: 13.05.2016
Сообщений: 9
28.05.2016, 06:31  [ТС] #3
Спасибо
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.05.2016, 06:31
Привет! Вот еще темы с решениями:

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

Вычислить сумму первых K элементов массива с нечетными индексами
помогите составить программу

Вычислить сумму первых К элементов массива с нечетными индексами
Вычислить сумму первых К элементов массива с нечетными индексами. составьте...

Вычислить сумму первых К элементов массива с нечетными индексами
Вычислить сумму первых К элементов массива с нечетными индексами....


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

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

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