Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Из матрицы У(k,k) получить вектор Т, элементами которого являются элементы главной диагонали матрицы https://www.cyberforum.ru/ turbo-pascal/ thread194854.html
Из матрицы У(k,k) получить вектор Т, элементами которого являются элементы главной диагонали матрицы.
Turbo Pascal Упорядочить строки по возрастанию элементов
Дана матрица X(n,m). Упорядочить строки по возрастанию элементов. Заранее благодарю. Очень нужно
Использование переменных строчного типа Turbo Pascal
Пожалуйста помогите построить блок-схему просто у меня ни одна программа по построению блок схем не работает Program L7; Uses Crt; Var x,s,b,an:real; n:integer; Const a=5; m=4; q=0.0001;...
Turbo Pascal Непонятная ошибка! вот кусок кода из программы : var ch1,ch2,ch3 :string; p:string; k1,k2,k3:integer; i:integer; s:integer; p:string; g:integer; https://www.cyberforum.ru/ turbo-pascal/ thread194814.html
Turbo Pascal задание массивы https://www.cyberforum.ru/ turbo-pascal/ thread194804.html
В матрице заменить все строки с наибольшей суммой элементов последней строкой. помогите
Сумма строк, столбцов и диагоналей массива Turbo Pascal
составить программу,вычисляющую суму n-ой строки двумерного массива. сумму n-ого столбца и сумму диагонали. заранее спасибо
Turbo Pascal Отсортировать однофамильцев
Можете плиз помочь как скажем так отсортировать однофамильцев мне нада сделать так что если есть однофамильцы то выводило одну фамилию а не все мне вот помогли только я понемаю как его доделать это...
Turbo Pascal Как решать интегралы в паскале? Интеграл (-2;2)x*cos(x/2) Помогите пожайлуста решить!!!!! https://www.cyberforum.ru/ turbo-pascal/ thread194759.html
Turbo Pascal Модуль https://www.cyberforum.ru/ turbo-pascal/ thread194733.html
Разработать библиотечный модуль . Составить программу, вызывающую процедуры и функции!!!
Turbo Pascal разобраться с кодом Дан текст. найти самую длинную группу цифр и поменять ее с последней группой цифр const s = 'sdsgs#d_123_ewat&wea_16489_w,etwe_27_twetw_5_ewr.we_653_fgh'; var i : Integer; pmax, lmax :... https://www.cyberforum.ru/ turbo-pascal/ thread194713.html
19 / 19 / 20
Регистрация: 17.11.2010
Сообщений: 53
21.11.2010, 18:18 0

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

21.11.2010, 18:18. Просмотров 1093. Ответов 4
Метки (Все метки)

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

Решение


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
var
mas,mas2: array[1..30] of real;
i,n,a,b,count: integer;
begin
writeln('Введите a b через пробел');
readln(a,b);
writeln('Введите N<30 (длину массива)');
readln(n);
count:=0;
for i:=1 to n
    do
      begin
      writeln('Введите ',i,'-ый элемент массива');
      readln(mas[i]);
      end;
writeln('Было:');
for i:=1 to n
    do
      begin
      write(mas[i],' ');
      end;
for i:=1 to n
    do
      begin
      if (trunc(mas[i])>a) and (trunc(mas[i])<b)
         then
             begin
             inc(count);
             mas2[count]:=mas[i];
             end;
      end;
for i:=1 to n
    do
      begin
      if (trunc(mas[i])<a) or (trunc(mas[i])>b)
         then
             begin
             inc(count);
             mas2[count]:=mas[i];
             end;
      end;
writeln;
writeln('Стал:');
for i:=1 to n
    do
      begin
      write(mas2[i],' ');
      end;
end.


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

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

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

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

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

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

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