Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Найти сумму элементов массива, значения которых превышают 1; 16 https://www.cyberforum.ru/ turbo-pascal/ thread1310153.html
Дан одномерный массив с неопределенном числом вещественных чисел. Допустим нужно ввести 10 вещественных чисел. Затем вычислить 1) сумму элементов массива, значения которых превышают 1; 16 2)...
Создать файл и заполнить его целыми числами Turbo Pascal
Тема: обработка файлов в ТП. Цель работы: создание программы обработки файлов. Задание: Составить программу, обеспечив вывод расчета на печать: создать файл и заполнить его данными определенного...
Turbo Pascal Задана матрица целых чисел размером (N, N). Найти среднее арифметическое элементов в окрашенной области
Задана матрица целых чисел размером (N, N). Найти среднее арифметическое элементов в окрашенной области. Запрещено использовать дополнительные матрицы. Рисунок №2
Turbo Pascal перевести с Турбо паскаля на Си program LR_5; uses crt; Var a,b,c,d,e:real; Function Max(a,b,c:real):real; Var mx:real; Begin if a>b then mx:=a else mx:=b; if c>mx then Max:=c else Max:=mx; End; Begin https://www.cyberforum.ru/ turbo-pascal/ thread1310098.html
Turbo Pascal Дана квадратная матрица. Найти наибольший по модулю элемент. Получить квадратную матрицу из исходной https://www.cyberforum.ru/ turbo-pascal/ thread1310052.html
Дана квадратная матрица вещественных чисел. Найти наибольший по модулю элемент. Получить квадратную матрицу из исходной путем выбрасывания строки и столбца, на пересечении которых расположен элемент...
Создать массив записей, содержащий сведения о студентах Turbo Pascal
Создать массив записей, содержащий сведения о студентах. Для каждого студента указать № студ.билета, форма обучения (стационар / заочно / второе образование), № приказа о зачислении
Вычислить значение арифметического выражения Turbo Pascal
Помогите пожалуйста,на вас вся надежда! Записать и решить данное уравнение в тп,очень надо.
Turbo Pascal Рекурсивная и итеративная подпрограммы Разработать алгоритм и составить программу для решения задачи двумя способами: используя рекурсивную и итеративную подпрограммы. Дана последовательность неотрицательных целых чисел. Вывести... https://www.cyberforum.ru/ turbo-pascal/ thread1310018.html
Turbo Pascal Найти максимальное и минимальное значение из трёх массивов https://www.cyberforum.ru/ turbo-pascal/ thread1310013.html
Всем доброй ночи. Подскажите, как можно найти максимальное и минимальное значение из нескольких массивов, в моём случае из трёх. Наброски: program maxmin; uses crt; const n=5; m=7; o=10; var...
Turbo Pascal Дана целочисленная прямоугольная матрица А(,) Дана целочисленная прямоугольная матрица А(,).Проверить,все ли элементы матрицы одинаковы?Если нет переставить максимальный и минимальный элементы матрицы.Если все элементы одинаковы ,перестановку не... https://www.cyberforum.ru/ turbo-pascal/ thread1309990.html
Модератор
62535 / 46711 / 32195
Регистрация: 18.05.2008
Сообщений: 113,051
25.11.2014, 08:33 0

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

25.11.2014, 08:33. Просмотров 1045. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
66
67
68
69
70
71
uses crt;
const nmax=100;
var m:array[1..nmax] of real;
    n,i,j:byte;
    mx,sm,a,b,x:real;
begin
clrscr;
randomize;
repeat
write('Размер массива M от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
writeln('Массив M');
j:=0;
for i:=1 to n do
 begin
  m[i]:=-5+10*random;
  write(m[i]:5:1);
  if i=1 then mx:=m[1]
  else if m[i]>mx then mx:=m[i];
  if m[i]>0 then j:=i;
 end;
writeln;
writeln('Максимальный элемент=',mx:0:1);
if j=0 then writeln('Положительных элементов нет')
else
 begin
  writeln('Последний положительный элемент=',m[j]:0:1,' его индекс=',j);
  sm:=0;
  for i:=j+1 to n do
  sm:=sm+m[i];
  writeln('Сумма после последнего положительного=',sm:0:1);
 end;
repeat
writeln('Введите диапазон чисел a<b');
readln(a,b);
until a<b;
i:=1;
while i<=n do
if(m[i]>=a)and(m[i]<=b) then
 begin
  if i=n then n:=n-1
  else
   begin
    for j:=i to n-1 do
    m[j]:=m[j+1];
    n:=n-1;
   end
 end
else i:=i+1;
if n=0 then write('Все элементы удалены')
else
 begin
  writeln('Удаление элементов из диапазона [',a:0:1,',',b:0:1,']');
  for i:=1 to n do
  write(m[i]:5:1);
  writeln;
  for i:=1 to n-1 do
  for j:=i+1 to n do
  if m[i]>m[j] then
   begin
    x:=m[i];
    m[i]:=m[j];
    m[j]:=x
   end;
  writeln('Сортировка по возрастанию');
  for i:=1 to n do
  write(m[i]:5:1);
 end;
readln
end.


Вернуться к обсуждению:
Вычислить сумму элементов массива, расположенных после последнего положительного элемента
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.11.2014, 08:33

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

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

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

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

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

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