Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Проверить, будет ли число читаться одинаково справа налево и слева направо Символьная строка содержит одно слово. Проверить, будет ли оно читаться одинаково справа налево и слева направо (т.е. является ли оно палиндромом). Добавлено через 1 минуту uses crt; var a:array of string; s:string; i:byte; begin clrscr; writeln('введите фразу'); https://www.cyberforum.ru/ turbo-pascal/ thread91712.html	Turbo Pascal Сортировка слиянием Написать программу: Сортировки слиянием
Turbo Pascal Строковый тип данных Задание: Имеется некоторый текст. Образовать из него новый, в который включить информацию, заключенную между пробелом и запятой. Заранее благодарю!! https://www.cyberforum.ru/ turbo-pascal/ thread91608.html	Turbo Pascal Дан текстовый файл целых чисел https://www.cyberforum.ru/ turbo-pascal/ thread91509.html Дан текстовый файл целых чисел. Создать новый файл, содержащий только отрицательные числа.
Turbo Pascal Составить программу, которая вычисляет произведение элементов каждой строки и находит среди них наименьшее. Дан двумерный массив А, состоящий из m строк и n столбцов Составить программу, которая вычисляет произведение элементов каждой строки и находит среди них наименьшее. Зарание спасибо!	Turbo Pascal Объединить строки двух текстовых файлов Есть прога program lr_20; var b,l,a,m:string; e,n:text; f:char; begin write('Введите полное имя создоваемого файла: '); readln(b); assign(e,b); rewrite(e); writeln('Введите текст: '); https://www.cyberforum.ru/ turbo-pascal/ thread91478.html
Turbo Pascal Написать в возрастающем порядке все цифры не входящие в запись данного числа Написать в возрастающем порядке все цифры не входящие в запись данного числа. https://www.cyberforum.ru/ turbo-pascal/ thread91460.html	Turbo Pascal Количество повторений в тексте заданного слова Определить количество повторений в тексте заданного слова. Считать, что слова в тексте отделены друг от друга одним пробелом. заранее спасибо!!!
Turbo Pascal Заменить в заданном тексте буквосочетание «abc» на «klmn» и удалить лишние пробелы Составить программу, которая заменяет в заданном тексте буквосочетание «abc» на «klmn». заранее спасибо!!! https://www.cyberforum.ru/ turbo-pascal/ thread91438.html	Turbo Pascal Удалить часть текста, заключённого в скобки https://www.cyberforum.ru/ turbo-pascal/ thread91437.html 3. Удалить в заданном тексте часть текста, заключённого в скобки (вместе со скобками). пацы оч срочно!!!
Turbo Pascal Определить в какой строке больше цифр Ввести 2е строки, определить в какой из них больше цирф	Turbo Pascal Найти палиндром максимальной длины. https://www.cyberforum.ru/ turbo-pascal/ thread91413.html Вариант 7(к.р) 1. Описание функции в Турбо Паскале. 2. Понятие перечисляемого и интервального типов данных. 3. Задача. Дана матрица размерностью N*M. Запомнить координаты элементов матрицы, которые являются минимальными в своей строке и максимальными в своем столбце Вариант 7(лаб.р) 1. Составить главную программу и процедуру. В процедуре составить вектор номеров элементов исходного вектора...

STGE

773 / 578 / 324

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

Сообщений: 1,188

13.12.2010, 04:04

Найти в массиве минимальный и максимальный элементы - Turbo Pascal - Ответ 1196298

13.12.2010, 04:04. Показов 6272. Ответов 5

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

Ответ

Pascal

uses crt;
  const m: set of char = ['.', ',', ':', '-', ';', '!', '?'];
var s: string; i: byte;
 begin 
    i:=0;
    clrscr;     
    writeln ('Vvedite stroku: ');
    readln (s);
    repeat     
      inc (i);
  until (s[i] in m) or (i = length (s));
    if s[i] in m then     
      begin       
        delete (s, i, 1);
        writeln ('Rezultat udaleniya: ',s);
      end    
    else 
      writeln ('V stroke net znakov prepinaniya');
  end.

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

13.12.2010, 04:04

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

Массивы. Найти в массиве максимальный и минимальный элементы и их номера
1.Заполнить массив из 10 элементов случайными числами в интервале и найти в нем максимальный и...

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

В каждом столбце матрицы найти максимальный и минимальный элементы, которые присутствуют в массиве A
Полностью задача звучит так: Даны целочисленная матрица R и целочисленный массив A. В каждом...

Найти max и min элементы в данном массиве, обменять первый максимальный и последний минимальный
1. Заполнить массив случайные числами из промежутка 2. Найти максимальный и минимальный элементы...

	13.12.2010, 04:04

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

13.12.2010, 04:04

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

Найти в массиве целых максимальный и минимальный элементы, посчитать, сколько раз они встречаются и на каких позициях
Найти в массиве целых чисел максимальный и минимальный элементы, посчитать, сколько раз они...

В массиве найти минимальный и максимальный элементы.
Дан массив целых чисел. Найти в этом массиве минимальный элемент m и максимальный элемент k....

в массиве 5х5 найти максимальный и минимальный элементы
в массиве 5х5 найти максимальный и минимальный элементы. подскажите пожалуйста

Найти в массиве максимальный и минимальный элементы и поменять их местами
uses crt; var min,max,z:integer; procedure minmax(var min,max:integer); var a:array of integer;...

Наверх