Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal Вывести на экран только те символы . Дана символьная строка. Вывести на экран только те символы, которые встречаются в ней более трех раз, для каждого из этих символов указать точное количество повторений. https://www.cyberforum.ru/ pascal/ thread141670.html	Написать программу вычисления площади треугольника Pascal Написать программу вычисления площади треугольника, если известны длины двух сторон и величина угла между ними. Ниже представлен рекомендуемый вид экрана во время работы программы. Вычисление площади треугольника. Введите (через пробел длины двух сторон (см) треугольника → Введите величину угла между сторонами треугольника (в градусах)→ Площадь треугольника: кв.см.
Pascal НОД трех чисел https://www.cyberforum.ru/ pascal/ thread141661.html Найти наибольший общий делитель трех заданных чисел.	Pascal сортировка и поиск. обработка строк. Помогите пожалуйста написать программу!((( Дана символьная строка. Если в ней нет других символов, кроме цифр, определить цифру, наиболее часто встречающуюся в этой строке. Если таких цифр несколько, напечатать любую из них. https://www.cyberforum.ru/ pascal/ thread141646.html
Pascal даны целые положительные числа M,N даны целые положительные числа M,N и набор из N чисел.Сформировать матрицу размера N*M,у которой в каждом строке содержатся все числа из исходного набора(в том же порядке).	Pascal Найти максимум https://www.cyberforum.ru/ pascal/ thread141643.html решите пожалуйста!!! напишите программу для решения следующей задачи: 1.по длиннам двух сторон некоторого треугольника и углу(в градусах) между ними найти длинну третьей сторонІ и площадь Єтого треугольника; 2.дано 50 вещественнІх чисел.найти величину наибольшего из них; Добавлено через 23 часа 45 минут и если можно:даны натуральное число N,целые числа A_(0,) A_(1…… )...
Pascal Перевод дюймов в сантиметры Разработать программу, которая переводит дюймы в сантиметры. 1 дюйм =2,54см. Построить таблицу соответствия дюймов и сантиметров от 1 до 10 дюймов. В ПАСКАЛЕ https://www.cyberforum.ru/ pascal/ thread141640.html	Хто знає? Pascal Написати програму, яка б виводила на екран в графічному режимі придуманий вами логотип фірми, що повинен містити такі обов'язкові елементи: - повну назву фірми або абревіатуру; - кілька геометричних фігур та лінії різних кольорів, з різними типами заливки та контура; - логотип повинен розміщуватися в рамці. Допоможіть!!!
Pascal Определить по заданному месяцу время года. https://www.cyberforum.ru/ pascal/ thread141627.html Определить по заданному месяцу время года. Месяц вводится числом, а выводить текстовым значением. Например, месяц=12. на экране получаем: Декабрь –это зима. Месяц=3. получаем: Март – это весна. в Паскале	Pascal Дан массив после первого отрицательного элемента нужно вставить число https://www.cyberforum.ru/ pascal/ thread141625.html Дан массив после первого отрицательного элемента нужно вставить число.
дан файл целых чисел Pascal дан файл целых чисел.Создать новый файл,содержащий те же элементы,что и исходный файл,но в обратном порядке.	Pascal Разработка программы с вложенными циклами Помогите пожалуйста ответить на вопрос: Как можно с помощью цикла while построить цикл, эквивалентный циклу for. Всегда ли эта замена будет абсолютно эквивалентной. program jkl; var s,f:real; k,n,j:integer; begin read (n); s:=0; for k:=1 to n do begin https://www.cyberforum.ru/ pascal/ thread141622.html

Puporev

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

64300 / 47595 / 32743

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

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

06.06.2010, 18:10

Дан массив целых чисел, содержащий 10 элементов, - Pascal - Ответ 784035

06.06.2010, 18:10. Показов 2120. Ответов 1

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

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

Решение

uses crt;

Pascal

const n=10;
var a:array[1..n] of integer;
    i,j,k:byte;
    x:integer;
begin
clrscr;
randomize;
writeln('Введите ',n,' элементов массива, целые положительные, отрицательные и ноли:');
for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);
 end;
clrscr;
writeln('Исходный массив:');
for i:=1 to n do
write(a[i],' ');
writeln;
writeln;
{положительные вперед}
k:=0;
for i:=1 to n do
if a[i]>0 then
  begin
    k:=k+1;
    x:=a[i];
    for j:=i downto k+1 do
    a[j]:=a[j-1];
    a[k]:=x;
  end;
{ноли в конец}
k:=0;
for i:=n downto 1 do
if a[i]=0 then
  begin
    k:=k+1;
    x:=a[i];
    for j:=i to n-k do
    a[j]:=a[j+1];
    a[n-k+1]:=x;
  end;
writeln('Перестановка:');
for i:=1 to n do
write(a[i],' ');
readln
end.

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

06.06.2010, 18:10

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

Дан массив целых чисел, содержащий 10 элементов. Составить новый массив, записать в него сначала все положительные элементы исходного массива
, потом все отрицательные элементы, потом нули... Да прибудет с вами сила...

Pascal. Дан массив целых чисел из 14 элементов. Найти произведение первых трех отрицательных элементов
Дан массив целых чисел из 14 элементов. Найти произведение первых трех отрицательных элементов

Дан массив целых чисел, содержащих 20 элементов, записать в этот же массив сначала все отрицательные числа и нули
Дан массив целых чисел, содержащих 20 элементов, записать в этот же массив сначала все...

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

	06.06.2010, 18:10

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

06.06.2010, 18:10

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

Дан массив целых и дополнительных чисел , что имеют n элементов : a1, a2, …, an
Привет! Друзья помогите пожалуйста решить задачу в Pascal: Дан массив целых и дополнительных...

Дан массив целых чисел D, состоящий из 30 элементов. Заполнить его с клавиатуры.
Дан массив целых чисел D, состоящий из 30 элементов. Заполнить его с клавиатуры. Заменить...

дан массив целых чисел. Найти количество нечетных элементов массива
я плохо разбираюсь в массивах. Если можно то напишите пож программу как можно в развернутом виде....

Дан файл целых чисел, содержащий менее 20 символов. Увеличить его размер до 20 элементов
Дан файл целых чисел, содержащий менее 20 символов. Увеличить его размер до 20 элементов, записав в...

Наверх