Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal Дана матрица 8х10 .Найти сумму наибольших значений элементов строк. https://www.cyberforum.ru/ pascal/ thread23369.html Дана матрица 8х10 .Найти сумму наибольших значений элементов строк.	Pascal Сформировать из массива символьных строк массив, элементы которого состоят только из пробелов и русских букв Помогите пожалуйста в написании текста программы. Сама задача. Сформировать из исходного одномерного массива символьных строк массив, элементы которого состоят только из пробелов и русских букв, т.е. строки, в которых встречаются другие символы в массив результатов не вносить(обеспечивается ввод символьных строк(максимально 30 элементов массива по 70 символов в строке). Заранее благодарен.:)
Pascal организация подпрограмной функции https://www.cyberforum.ru/ pascal/ thread23361.html Организация подпрограмной функции Сложить программу вычисленния значений выражения, используя способы програмированния с образованием функции пользователя . Вот само условие PS обратился сюда , потомучто не знаю сам как решить эту задачку )	Pascal Вывести слова в строке, в которых нет повторяющихся букв https://www.cyberforum.ru/ pascal/ thread23345.html Помогите пожалуйста решить задачу: Дана последовательность, содержащая от 2 до 50 слов, в каждом из которых от 1 до 8 строчных латинских букв; между соседними словами -- не менее одного пробела, за последним словом -- точка. Напечатать те слова последовательности, которые отличны от последнего слова и удовлетворяют следующему свойству: - в слове нет повторяющихся букв?
Pascal Обработка символьной информации Составить программу для обработки информации о некоторых объектах-студентах какого-то факультета. Кажды объект характеризуется совокупностью признаков:фамилия,имя,год рождения,пол,оценки по физике,по математики,информатики,стипендия. Вывести фамилии студентов,пропустивших более двух экзаменов. Я вроде написал прогу,но когда вводиш первого студента,который подходит под описание она его сразу...	Pascal у двумерном массиве Deo размерностью2х3 вычислить произведение невидемних элементов https://www.cyberforum.ru/ pascal/ thread23341.html а еще плісс мне у двумерном массиве Deo размерностью2х3 вычислить произведение невидемних элементов и все непарные элементы заменить цифрой :help:
Pascal Найти в массиве запись, удовлетворявшую заданным условиям https://www.cyberforum.ru/ pascal/ thread23339.html Доброго времени суток, пожалуйста помогите внести в задачу, условия такого типа; Найти запись удовлетворявшую след. условия: среди жанра игр "стратегия" вышедшие в 2009 году и которые имеют минимальные системные требования. Program AnzStr; Uses crt; TYPE Date = Record	Подпрограмма для вычисления суммы трех последовательно расположенных элементов массива с номерами от k до m Pascal Доброго всем вемени суток.Возникла острая необходимсть решить задание и конечноже не обошлось без трудностей) Задан массив D. Определить следующие суммы: D+D+D;D+D+D; D+D+D.Составит подпрограмму для вычисления суммы трех последовательно расположенных элементов массива с номерами от k до m.
Pascal Файлы Дан файл "Tovar" содержащий сведения об экспортируемых товарах: указываются наименования товаров,страна импортирующая товар и объем поставляемой партии в штуках. Составить список стран,в которые экспортируется данный товар и указать общий объем его экспорта https://www.cyberforum.ru/ pascal/ thread23328.html	Pascal Найти найменший прямоугольник,который описывает два заданых отрезка https://www.cyberforum.ru/ pascal/ thread23269.html Задача с аналитической геометрии: В декартовой плоскости координатами концов задано два отрезка. Найти найменший прямоугольник,который описывает два заданых отрезка,при этом одна из сторон найденого прямоугольника паралельна другому отрезку
Текстовые файлы Pascal Задача на языке Паскаль. Условие: Нужно переделать эту программу на текстовые файлы. Program Cveti; Uses crt; TYPE flowers = Record name:string; kol:integer; Cvet:(krasni,jelti);	Pascal написать программку в виде теста Я студент нам дали задание написать программку в виде теста чтобы был тест по процентам тоесть дается текст ученик читает его а потом отвечает на вопросы если по первой главе студент не набирает 50 балов он возвращается обратно к прочтению главы а если больше 50% то переходит к изучению второй главы пожалуйста помогите мой адрес: mvn-kruf@uraltc.ru ICQ:8517680 https://www.cyberforum.ru/ pascal/ thread23254.html

pascal65536

11 / 11 / 3

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

Сообщений: 77

15.02.2009, 21:05

Составьте программу подсчета числа наименьших по модулю элементов одномерного массива - Pascal - Ответ 103734

15.02.2009, 21:05. Показов 3119. Ответов 1

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

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

Решение

Pascal

Uses CRT;
 
Const N = 20;
 
Var A : Array [1..N] of Integer;
    I, B, C, BB, CC : Integer;
 
Begin
     For I := 1 To N Do
         A[I]:=Random(10);
     For I := 1 To N Do Write (A[I]:3);
         WriteLn;
     BB := 0;
     CC := 0;
     
     B := 4;
     C := 2;
 
     For I := 1 To N Do
     Begin
          If B = A[I] Then BB:=BB+1;
          If C = A[I] Then CC:=CC+1;
     End;
 
     If BB > CC Then WriteLn(B, ' встречается чаще, чем ',C);
     If BB < CC Then WriteLn(C, ' встречается чаще, чем ',B);
     If BB = CC Then WriteLn(B, ' и ', C, ' встречаются одинаковое количество раз (', BB,')');
End.

Вернуться к обсуждению:
Составьте программу подсчета числа наименьших по модулю элементов одномерного массива Pascal

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

15.02.2009, 21:05

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

Подсчет числа наименьших по модулю элементов одномерного массива
Составьте программу подсчета числа наименьших по модулю элементов одномерного массива А(p)

Составьте программу подсчета числа максимальных по модулю элементов одномерном массиве
Составьте программу подсчета числа максимальных по модулю элементов в одномерном массиве A(P).

Составить программу подсчета числа минимальных по модулю элементов одномерного массива
Я в паскале вообще не понимаю....помогите сделать три задачи, завтра уже сдавать, четыре часа сижу...

Составьте программу подсчета числа различных положительных элементов одномерного массива А(Q)
2. Составьте программу подсчета числа различных положительных элементов одномерного массива А(Q).

	15.02.2009, 21:05

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

15.02.2009, 21:05

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

Составьте программу подсчёта чисел элементов одномерного массива
1) Составьте программу, отыскивающую среди пар элементов одномерного массива Z(N) те, разность...

Составьте программу подсчета числа различных повторяющихся элементов массива C(M,P).
Составьте программу подсчета числа различных повторяющихся элементов массива C(M,P). помогите...

Составьте программу подсчета числа положительных и отрицательных сумм элементов строк массива А(N,M)
Помогите, пожалуйста :) (если не трудно, то можно с пояснениями) 2.Составьте программу подсчета...

Составьте программу подсчета числа элементов двумерного массива А превосходящих среднее арифметическое
Составьте программу подсчета числа элементов двумерного массива А(M,N) превосходящих среднее...

Наверх