Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal Найти все натуральные числа, цифры в которых образуют строго возрастающую последовательность Найти все натуральные n-значные числа, цифры в которых образуют строго возрастающую последовательность (например, 1234, 5789). https://www.cyberforum.ru/ pascal/ thread39144.html	Текстовый файл содержит несколько целых чисел, выбросить из записи числа цифры 0 и 2 Pascal Помогите сделать задание! первая часть уже сделана, исходя из нее, надо сделать дальше! ЗАДАНИЕ Текстовый файл содержит несколько целых чисел, выбросить из записи числа цифры 0 и 2, оставив...
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, как написать рабочий код к такому условию, честно говоря не знаю. Подскажите пожалуйста с кодом или хотя бы...	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-значных чисел, содержащих только нечетные цифры. Определить также, сколько четных цифр в найденной сумме. напишите прогу полностью пожалуйста!!!!просто завал,...
Списки,файлы. 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. Показов 652. Ответов 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

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

09.06.2009, 13:38

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

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

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

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

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

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

09.06.2009, 13:38

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

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

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

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

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

Наверх