Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal Найти все натуральные числа, цифры в которых образуют строго возрастающую последовательность Найти все натуральные n-значные числа, цифры в которых образуют строго возрастающую последовательность (например, 1234, 5789). https://www.cyberforum.ru/ pascal/ thread39144.html	Текстовый файл содержит несколько целых чисел, выбросить из записи числа цифры 0 и 2 Pascal Помогите сделать задание! первая часть уже сделана, исходя из нее, надо сделать дальше! ЗАДАНИЕ Текстовый файл содержит несколько целых чисел, выбросить из записи числа цифры 0 и 2, оставив прежним порядок остальных цифр (например: 59012512 -> 59151). Вывести в другой текстовый файл данные для построения гистограммы, показывающей зависимость количества различных цифр в записи числа от его...
Pascal программка. подскажите плз!!!!! https://www.cyberforum.ru/ pascal/ thread39116.html	Pascal Дано натуральное число... https://www.cyberforum.ru/ pascal/ thread39115.html Дано натуральное число n, действительные числа a1, a2,..., an. Найдите номер первого кратного 7 члена последовательности a1, a2....an; если таких членов нет, то ответом должна быть сумма всех элементов последовательности.
Pascal Наименьший член данной последовательности заменить целой частью среднего арифметического всех ее членов Здравствуйте, у меня возникла необходимость решить сложную задачку на языке Pascal, как написать рабочий код к такому условию, честно говоря не знаю. Подскажите пожалуйста с кодом или хотя бы укажите, где можно что-то похожее, уже решенное найти :kissing: Дана последовательность целых чисел a1, a2, …, an. Наименьший член этой последовательности заменить целой частью среднего арифметического...	Pascal Проверить текст на соответствие числа открывающихся и закрывающихся скобок https://www.cyberforum.ru/ pascal/ thread39105.html помогите плз прогу написать Исходный файл представляет собой текст на языке Паскаль.Проверить эту программу на соответствие числа открывающихся и закрывающихся скобок.
Pascal Побитовые операции https://www.cyberforum.ru/ pascal/ thread39081.html С помощью побитобых операций реализовать вызовы функций lo(n) и hi(n).	Pascal Сортировка. Поиск. В однонаправленном массиве вычислить количество арифметических прогрессий с заданным приращением М, состоящих не менее чем из трех подряд расположенных элементов, для каждой обнаруженной прогрессии напечатать номера входящих в нее элементов.
Pascal Множества https://www.cyberforum.ru/ pascal/ thread39067.html Придумать список некоторых объектов, например, названия товаров в мага-зинах; виды полезных ископаемых, которые добывают в различных странах; фамилии студентов, которые могут принимать участие в работе определен-ных кружков и т.п. Построить пять множеств (язык слов англ.), которые складываются из различных комбинаций элементов этого списка. Вывести на экран названия объектов, которые находятся...	Pascal Написать программу, определяющую сумму n-значных чисел https://www.cyberforum.ru/ pascal/ thread39065.html Написать программу, определяющую сумму n-значных чисел, содержащих только нечетные цифры. Определить также, сколько четных цифр в найденной сумме. напишите прогу полностью пожалуйста!!!!просто завал, завтра сдавать а мне еще 12 штук писать, буду признателен, спасибо вам!
Списки,файлы. Pascal Составить программу, в которой список студентов с указанием суммы стипендии и семейного положения вводится из текстового файла и формируется линейный однонаправленный список. Затем обращение к подпрограмме процедуре сортировки списка по размеру стипендии (по убыванию) и фамилии (при одинаковых суммах стипендии). Исходный список и отсортированный список вывести в текстовый файл.	Pascal Темы - "Списки", "Деревья" Если сможете помогите плззз написать 2 программы: 1.(Списки) С последовательности чисел удалить одинаковые, оставивши их по одному. 2.(Деревья) Вычислить длину пути от корня до вершины с заданным ключом. Списки не успел выучить и не сильно успеваю.. проги надо сделать до завтра... Если кто сможет помогите. https://www.cyberforum.ru/ pascal/ thread39060.html

mamedovvms

2923 / 844 / 324

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

Сообщений: 2,633

09.06.2009, 13:38

Линейные массивы. - Pascal - Ответ 187586

09.06.2009, 13:38. Показов 690. Ответов 3

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

Ответ

Pascal

uses crt;
var x:array[1..10] of real;
      i,n:integer;
begin
 clrscr;
 writeln('n ');
 readln(n);
 for i:=1 to n do
  readln(x[i]);
for i:=1 to n do 
 write(x[i],' ');
writeln;
 
for i:=1 to n do
 begin
  if x[i]<0 then x[i]:=x[i]+0.5 else
  if x[i]>0 then x[i]:=0.1;
  write(x[i],' ');
 end;
 
readln;
end.

Вернуться к обсуждению:
Линейные массивы. Pascal

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

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

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

Блог

09.06.2009, 13:38

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

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

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

Линейные массивы
Здрасте, решите пжлста задачки: A8: В массиве все элементы, стоящие после максимального,...

Линейные массивы
Нужно написать программу, которая проверяет – образуют ли элементы заданного массива возрастающую...

	09.06.2009, 13:38

BasicMan

Эксперт

19315 / 2622 / 84

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

Сообщений: 10,364

Блог

09.06.2009, 13:38

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

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

Линейные массивы
Написать программу, которая для заданной последовательности A1, A2…A2n вычисляет: Max(A1+A2n ,...

Линейные массивы
известны сведения о количестве осадков выпавших за каждый день мая. первого мая осадков не было ....

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

Наверх