Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Turbo Pascal Удаление символа в строке https://www.cyberforum.ru/ turbo-pascal/ thread705819.html Задача такая: нужно удалить из строки все запятые, которые предшествуют первой точке. есть кое какие соображения по этому поводу. var St,St2:string; i,j,k,m,a:integer; Begin writeln('input string:'); readln(St); i:=pos('.',St); k:=1;	Вывести номер её первой строки матрицы, содержащей максимальное количество одинаковых элементов Turbo Pascal Дана целочисленная матрица размера M x N .Вывести номер её первой строки ,содержащей максимальное количество одинаковых элементов
Turbo Pascal Даны 2 действительных числа a,b. Вывести первое, если оно больше второго и оба числа в противном случае помогите решить задачу на ветвление с программой. Текст таков:Даны 2 действительных числа a,b. Вывести первое, если оно больше второго и оба числа в противном случае. https://www.cyberforum.ru/ turbo-pascal/ thread705814.html	Turbo Pascal Формирование и сортировка матрицы и вектора Добрый день! В задаче где-то ошибка, где не пойму. за помощь буду благодарен. Ввести элементы матрицы А(8,8). Сформировать вектор В, элементами которого являются средние арифметические значения неотрицательных элементов строк матрицы А. Определить максимальный элемент вектора В. Элементы, предшествующие ему переставить в убывающем порядке, после – в возрастающем порядке. При выводе... https://www.cyberforum.ru/ turbo-pascal/ thread705786.html
Turbo Pascal Определить минимальное колличество элементов массива Определить минимальное количество элементов массива А(10), сумма которых больше введенного с клавиатуры k. Очень-очень нужна помощь!:)	Turbo Pascal Написать программу, которая проверяет находится ли x в пределах отрезков https://www.cyberforum.ru/ turbo-pascal/ thread705737.html Написать программу, которая проверяет находится ли x в рамках отрезков и вне пределов отрезка . Спасибо заранее!
Turbo Pascal Сложение длинных чисел https://www.cyberforum.ru/ turbo-pascal/ thread705689.html Мне нужно сложить в паскале длинные числа (до 255 символов в строке). Исходные данные: в двух строках по одному длинному целому десятичному числу Выходные данные: результат сложения этих чисел Ограничения: длина исходных чисел не превышет 255 символов Пример Исходные данные: 99999999999999999999 10000000000000000001 Выходные данные:	Дан текст. Определите количество слов, начинающихся и оканчивающихся одной и той же буквой Turbo Pascal Дан текст. Определите количество слов, начинающихся и оканчивающихся одной и той же буквой. помогите найти ошибку... var sl,s:string; i, h:integer; begin writeln('введите строку'); readln(s); h:=0; sl:='';
Turbo Pascal Составить таблицу истинности,Высчислить СКНФ и СДНФ https://www.cyberforum.ru/ turbo-pascal/ thread705665.html uses crt; Var a,b,c: Boolean; function FF(a,b,c: boolean): boolean; var F:boolean; begin F:=(not(a))and(b)and(not(c))or(a)and (not(b))and(c)or(not(a))and(b)and(c); FF:=F; end; Begin	Turbo Pascal Записать числа и их цифры в обратном порядке https://www.cyberforum.ru/ turbo-pascal/ thread705663.html Дана задача: Вводится 5 чисел. Требуется записать их в обратном порядке, при этом переставив все цифры в каждом числе в обратном порядке. Моя программа переставляет числа в массиве, но при попытке переставить цифры в числах обнуляет его. Помогите исправить программу. var k,l:longint; x:array of longint; x1:array of longint; i,j,m:integer; s,s1:string; begin s:='';
Распечатать список учеников музыкальной школы,которые учатся играть на скрипке Turbo Pascal Распечатать список учеников музыкальной школы,которые учатся играть на скрипке.Указать также,сколько лет они занимаются музыкой и принимали ли участие в каких либо конкурсах.	Turbo Pascal Из ассортимента конфет,выпускаемой пермской кондитерской фабрикой,выбрать те,стоимость которых от 30 до 55 руб. за 1 кг Из ассортимента конфет,выпускаемой пермской кондитерской фабрикой,выбрать те,стоимость которых от 30 до 55 руб. за 1 кг. Указать срок их годности и номера магазинов, в которых они имеются в продаже. https://www.cyberforum.ru/ turbo-pascal/ thread705652.html

Puporev

Почетный модератор

64304 / 47599 / 32743

Регистрация: 18.05.2008

Сообщений: 115,181

22.11.2012, 19:34

Выяснить, есть ли в целочисленном массиве одинаковые элементы, равноудаленные от начала и конца массива - Turbo Pascal - Ответ 3739312

22.11.2012, 19:34. Показов 1632. Ответов 2

Метки (Все метки)

Сообщение было отмечено Qwer345 как решение

Решение

Pascal

uses crt;
const nmax=500;
var a:array[1..nmax] of integer;
    n,i:integer;
    f:boolean;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until (n>1)and(n<=nmax);
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=-25+random(51);
  write(a[i]:4);
 end;
writeln;
f:=false;
i:=1;
while(i<=n div 2)and not f do
if a[i]=a[n-i+1] then f:=true
else i:=i+1;
if f then write('В массиве есть одинаковые равноудаленные числа')
else write('В массиве нет одинаковых равноудаленных чисел');
readln
end.

Вернуться к обсуждению:
Выяснить, есть ли в целочисленном массиве одинаковые элементы, равноудаленные от начала и конца массива Turbo Pascal

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

22.11.2012, 19:34

Готовые ответы и решения:

Выяснить, есть ли в целочисленном массиве одинаковые элементы, равноудаленные от начала и конца массива
Выяснить, есть ли в целочисленном массиве одинаковые элементы, равноудаленные от начала и конца...

Выяснить, есть ли одинаковые элементы в массиве
Обработать массив А, состоящий из произвольных чисел, среди которых есть положительные,...

Выяснить, есть ли одинаковые элементы в массиве
Имеется массив А из N произвольных чисел - А(N), среди которых есть положительные, отрицательные и...

Выяснить есть ли в двумерном массиве строка содержащие одинаковые элементы
дан двумерный массив A (n * m) выяснить есть ли в нем строка содержащие одинаковые элементы C++

	22.11.2012, 19:34

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

22.11.2012, 19:34

Помогаю со студенческими работами здесь

Выяснить, есть ли одинаковые элементы в массиве. Определить их значение и индексы
Выяснить, есть ли одинаковые элементы в массиве. Определить их значение и индексы.

1. выяснить, есть ли в двумерном массиве одинаковые элементы. 2. заполнить массив А размерром MxM
1. Составить программу, выясняющую, есть ли в двумерном массиве размера MxN одинаковые элементы....

Выяснить есть ли в целочисленном массиве простые числа
Просьба написать на уровне СУЗа;) Добавлено через 37 минут Срочно пожалуйста,скоро зачет.

Массив: Найти пары элементов массива B, равноотстоящих от начала и конца массива и имеющих одинаковые значения
Помогите пожалуйста. Найти номера пары элементов массива B, равноотстоящих от начала и конца...

Найти номера пары элементов массива b=(b1,b2,.,bn) равностоящий от начала и конца массива и имеющих одинаковые значени
Найти номера пары элементов массива b=(b1,b2,...,bn) равностоящий от начала и конца массива и...

Выяснить есть ли одинаковые числа в массиве
Выясните, есть ли одинаковые числа в массиве или же массив содержит только разные. Сосчитайте...

Наверх