Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Turbo Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Turbo Pascal Дан одномерный массив AN. Найдите количество и сумму элементов, индексы которых лежат в интервале Пожалуйста помогите!)) (Паскаль) Дан одномерный массив AN. Найдите количество и сумму элементов, индексы которых лежат в интервале https://www.cyberforum.ru/ turbo-pascal/ thread990110.html Вычислить количество точек с целочисленными координатами, попадающих в круг радиуса R Turbo Pascal
Вычислить количество точек с целочисленными координатами, попадающих в круг радиуса R (R>0) с центром в начале координат
Turbo Pascal В одномерных массивах C и P максимальный элемент заменить количеством положительных чисел в массиве https://www.cyberforum.ru/ turbo-pascal/ thread989983.html
Плз напишите код программы вопрос жизни и смерти!! Буду безгранично благодарен :) Такое задание: В одномерных массивах C и P максимальный элемент заменить количеством положительных чисел в массиве, а минимальный - среднеарифметическим отрицательным. 		Turbo Pascal Напечатать те числа, которые принадлежат интервалу https://www.cyberforum.ru/ turbo-pascal/ thread989979.html
Даны три действительных числа. напечатать те из них, которые принадлежат интервалу(1,3). если таковых нет то вывести сообщение.
Вычислить значение выражения Turbo Pascal
Для заданого двумерного массива найти среднее арифметическое(я нашел его), среднее квадратное отклонение Б(это дельта) за формулами. + массив на картинке Вот формулы: \bar{x} = \frac{1}{mn}\sum_{i=1}^{n}\sum_{j=1}^{n}{x}_{i,j} ; \delta = \sqrt{\frac{1}{mn-1}\sum_{i=1}^{n}\sum_{i=1}^{n}}(x_{i,j}-\bar{x})^2 Так вот дополните пожалуйста код . я не знаю как искать среднее среднее квадратное... 		Turbo Pascal Заданно натуральное число N. Задача в Паскале Для заданного натурального числа N удалить из записи числа указанную цифру не изменив разрядность. https://www.cyberforum.ru/ turbo-pascal/ thread989944.html
Turbo Pascal Вычислить количество точек с целочисленными координатами, попадающих в круг радиуса R (R>0) с центром в начале координат (цикл while.do) https://www.cyberforum.ru/ turbo-pascal/ thread989913.html
1.Вычислить S - сумму квадратов всех целых чисел, попадающих в интервал ( lnX, e^X ), x>1. 2.Вычислить количество точек с целочисленными координатами, попадающих в круг радиуса R (R>0) с центром в начале координат (цикл while...do) 		Turbo Pascal Определить, могут ли числа a и b быть соседними в последовательности Фибоначчи
Нарисовал блоксхему, но как ни странно, не пойму как запрогать 2 половину. Заранее спасибо)) Программа проверяет являются ли заданные числа соседними в последовательности Фибоначчи.
Turbo Pascal Определить сколько раз встречается цифра или цифры в задающем нами числе N https://www.cyberforum.ru/ turbo-pascal/ thread989907.html
Определить сколько раз встречается цифра или цифры в задающем нами числе N 		Turbo Pascal Найти среднее геометрическое элементов матрицы которые расположены выше главной диагонали https://www.cyberforum.ru/ turbo-pascal/ thread989845.html
дана квадратная матрица A(m,m)/ Найти среднее геометрическое ее элементов которые расположены выше главной диагонали и левее (ь-1) столбца. Program prac6; const m=6; var a:array of integer; i,j,k:integer; begin for:=1 to m do for j:=1 to m do begin
Turbo Pascal Найти три наибольших элемента одномерного массива X(20)
Найти три наибольших элемента одномерного массива X(20) Мучаюсь уже очень долгое время. Дописал, но считает не правильно. Помогите разобраться. type massiv=array of integer; var m:massiv; i,max,max2,max3,n,n2:integer; begin max2:=0; max3:=0; for i:=1 to 20 do begin 		Turbo Pascal Файли.Зчитиваний даних с файла (Ошибка) Код: program Project1; uses crt; const MaxSize = 100; infinity = 1000; var Matrix:array of integer; color:array of integer; Ribs:array of record https://www.cyberforum.ru/ turbo-pascal/ thread989824.html
522 / 398 / 213
Регистрация: 28.07.2011
Сообщений: 2,207
28.10.2013, 15:18 0

Найдите наибольшее значение суммы двух соседних элементов массива - Turbo Pascal - Ответ 5248851

28.10.2013, 15:18. Показов 2117. Ответов 2
Метки (Все метки)
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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

uses crt;
const n=10;
var a:array [1..n] of integer;
i,s,li,ri,maxs:integer;
begin
clrscr;
randomize;
writeln('Massive A:');
for i:=1 to n do
begin
        a[i]:=random(100);
        write(a[i],' ');
end;
maxs:=-maxint;;
for i:=1 to n-1 do
begin
        s:=a[i]+a[i+1];
        if (maxs<s) then
        begin
        maxs:=s;
        li:=i;
        ri:=i+1;
        end;
end;
writeln;
writeln('Max summa = ',maxs);
writeln('Slozhili a[',li,']=',a[li],' i a[',ri,']=',a[ri],' elementi');
readkey;
end.


Вернуться к обсуждению:
Найдите наибольшее значение суммы двух соседних элементов массива Turbo Pascal
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 28.10.2013, 15:18
Готовые ответы и решения:

Найдите наименьшее значение суммы квадратов двух соседних элементов массива
Дан одномерный массив AN. Найдите наименьшее значение суммы квадратов двух соседних элементов и...

Найти наибольшее значение суммы двух соседних элементов массива
вот такое задание Дан целочисленный массив A из 30 элементов, которые могут принимать значения...

Вывести номера двух соседних элементов массива, произведение которых наибольшее
Заполните массив случайными числами в интервале и выведите номера двух соседних элементов,...

Массив: Найти количество элементов, значение которых больше суммы двух соседних элементов.
Дан массив из N элементов. Найти количество элементов, значение которых больше суммы двух соседних...

2
28.10.2013, 15:18
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 28.10.2013, 15:18
Помогаю со студенческими работами здесь

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

Найдите наибольшее значение среди элементов массива
ТЕМА: Использование вложенных циклов и ветвлений при обработке массивов Обработка матриц Задание:...

Сформировать массив Y из тех элементов массива Х, которые больше суммы двух соседних предыдущих
Сформировать массив Y из тех элементов массива Х, которые больше суммы двух соседних предыдущих...

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

0
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru