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

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

20.11.2013, 12:26. Просмотров 1069. Ответов 1
Метки нет (Все метки)

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

1) количество элементов массива, меньших C;
2) сумму целых частей элементов массива, расположенных после последнего отрицательного элемента. (Ввод цифр должен быть введен с клавиатуры и без random).
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.11.2013, 12:26
Ответы с готовыми решениями:

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

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

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

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

1
457 / 382 / 326
Регистрация: 05.11.2013
Сообщений: 1,043
Записей в блоге: 6
20.11.2013, 17:58 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Цитата Сообщение от Светлана25 Посмотреть сообщение
Ввод цифр должен быть введен с клавиатуры
сама дописала в условие или так и было?

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
var a:array [1..100] of real;
 n,i,k,iotr:integer; s:longint;
 c:real;
begin
 write ('Введите значение C:'); readln(c);
 write ('Введите размерность массива от 2 до 100:'); readln(n);
 iotr:=0; k:=0;
 for i:=1 to n do begin
  write ('a[',i,']='); readln (a[i]);
  if a[i]<0 then iotr:=i;
  if a[i]<c then inc(k);
 end;
 writeln ('Количество элементов, меньших C=',k);
 if iotr=0 then writeln ('Нет отрицательных элементов, сумма не найдена')
 else begin
  s:=0;
  for i:=iotr+1 to n do s:=s+trunc(a[i]);
  writeln ('Сумма целых частей после последнего отрицательного=',s)
 end;
 write ('Нажмите ENTER для завершения');
 readln;
end.
Введите значение C:5
Введите размерность массива от 2 до 100:10
a[1]=3.5
a[2]=6
a[3]=-5
a[4]=1
a[5]=-2
a[6]=1.5
a[7]=2.5
a[8]=3
a[9]=4
a[10]=0
Количество элементов, меньших C=9
Сумма целых частей после последнего отрицательного=10
Нажмите ENTER для завершения
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.11.2013, 17:58

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

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

Как найти сумму элементов массива, расположенных после последнего положительного элемента
Дано 12 вещественных чисел Как найти сумму элементов массива, расположенных после последнего...

Найти сумму целых частей элементов массива, расположенных после последнего отрицательного элемента
Люди добрые, помогите пожалуйста решить задачи на массивы! Помогите чем можете!!! 1) Сумму...

Найти сумму целых частей элементов массива, расположенных после последнего отрицательного элемента
Помогите решить! Сумму целых частей элементов массива, расположенных после последнего...

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

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


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

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

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