Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Заполнить двумерный массив с помощью random и найти сумму квадратиков (каждого) https://www.cyberforum.ru/ turbo-pascal/ thread444649.html
например(нолики-пустое): 33456350000000 23456770000000 56892460000000 45678240000000 00000005678457 00000009876543 00000004567823 00000005987549
Turbo Pascal Как читать матрицу....
Как читать матрицу вот таким образом
Turbo Pascal Сумма бесконечного ряда Помогите написать задачу... https://www.cyberforum.ru/ turbo-pascal/ thread444642.html Turbo Pascal Стилизованного изображения велосипедиста https://www.cyberforum.ru/ turbo-pascal/ thread444631.html
помоги пожалуйста, очень надо..... а иначе полный провал.... составьте программу вывода на экран стилизованного изображения велосипедиста. При нажатии клавиши Enter он начинает движение, вращая...
Преобразовать программу через процедуры Turbo Pascal
Как преобразовать эту программу через процедуры
Turbo Pascal заполнить двумерный массив в виде лежащих песочных часов. с помощью random https://www.cyberforum.ru/ turbo-pascal/ thread444594.html
Turbo Pascal Координаты исследуемой точки https://www.cyberforum.ru/ turbo-pascal/ thread444581.html
Помогите плиззз с написанием задачи в Turbo Pascal. Координаты исследуемой точки: (-1; -5) Область (вся область определения)
Исключить из символьной строки все буквы "а" Turbo Pascal
Написать программу, исключающую из символьной строки все буквы "а".
Turbo Pascal Найти сумму и количество элементов в каждой строке матрицы 1.Дан двумерный массив. Найти сумму и количество элементов в каждой строке Попадающий в интервал от A до B 2. Дан двумерный массив. Определить, есть ли в данном массиве столбец состоящий только... https://www.cyberforum.ru/ turbo-pascal/ thread444552.html Turbo Pascal Создание страниц Вообщем есть 3 страницы - главная(1), и при нажатии 1 или 2 - вывод страницы(2) или страницы(3). (2) и (3) есть, нужно сделать главную, что бы она открывала (2) или (3). Спасибо за понимание! https://www.cyberforum.ru/ turbo-pascal/ thread444546.html
Дано множество треугольников Turbo Pascal
Здравствуйте. Помогите с задачей. Дано множество треугольников. Вывести номера остроугольных треугольников, координаты вершин которых положительны.
Turbo Pascal Запись в файл https://www.cyberforum.ru/ turbo-pascal/ thread444513.html
Вот написала программку с .asm'овскими вставками, все считает правильно, но вот вопрос как сделать так чтобы он записывал введенные результаты в файл, точнее значения b,w,d без ответа в строчку, т.е....
Почетный модератор
64270 / 47569 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
12.02.2012, 14:54 0

Все элементы массива, равные нулю, поставить сразу после максимального элемента - Turbo Pascal - Ответ 2482612

12.02.2012, 14:54. Показов 2001. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
uses crt;
const nmax=50;
var a:array[1..nmax] of integer;
    n,i,imx,j,k:integer;
begin
clrscr;
repeat
write('Введите размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Введите элементы массива, целые числаЮ в том числе 0:');
for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);
 end;
clrscr;
writeln('Исходный массив:');
imx:=1;
for i:=1 to n do
 begin
  write(a[i],' ');
  if a[i]>a[imx] then imx:=i;
 end;
writeln;
writeln('Максимальный элемент=',a[imx],' его индекс=',imx);
writeln;
for i:=1 to n do
if(i<>imx)and(a[i]=0) then{если ноль и не максимальный}
 begin
  if i<imx then{раньше максимального}
   begin
    for j:=i to imx-1 do{сдвигаем на него все элементы до макс}
    a[j]:=a[j+1];
    a[imx]:=0;{на место максимального пишем 0}
   end
  else{если после максимального}
   begin
    for j:=i downto imx+2 do{сдвигаем на него все после максимального}
    a[j]:=a[j-1];
    a[imx+1]:=0;{на место максимального пишем 0}
   end;
 end;
writeln('Перестановка нолей:');
for i:=1 to n do
write(a[i],' ');
readln
end.


Вернуться к обсуждению:
Все элементы массива, равные нулю, поставить сразу после максимального элемента Turbo Pascal
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.02.2012, 14:54
Готовые ответы и решения:

Выручайте! В массиве A=(a1,a2,a3.an) все элементы, равные нулю, нужно поставить сразу после максимального элемента данного массива
Вот я набросал прогу, она переписывает элементы в порядке возрастания, мне нужно поставить все нули...

Все элементы, равные нулю, поставить сразу после максимального элемента данного массива
нужно переделать данную задачу, с использованием указателей Условие: В массиве A=(a1, а2, ...,...

Все элементы заданного массива, равные нулю, поставить сразу после максимального элемента
В массиве A=(a1, а2, ..., аn) все элементы, равные нулю, поставить сразу после максимального...

Все элементы массива, равные нулю, поставить сразу после максимального элемента данного массива
В массиве A=(a1, а2, ..., аn) все элементы, равные нулю, поставить сразу после максимального...

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.02.2012, 14:54
Помогаю со студенческими работами здесь

Элементы равные нулю поставить сразу после максимального элемента данного массива
В массиве A=( a1, а2, ..., аn) все элементы, равные нулю, поставить сразу после максимального...

Из одномерного массива А(20) удалить все элементы, равные 1/2 максимального элемента
Ребят, помогите написать программу пожалуйста: Из одномерного массива А(20) удалить все элементы,...

одномерный массив. Все его элементы, не равные нулю, переписать, сохраняя их порядок в начало массива, а нулевые элементы в конец массива in c++
одномерный массив. Все его элементы, не равные нулю, переписать, сохраняя их порядок в начало...

Удалить все элементы массива равные нулю
Сформировать одномерный массив целых чисел, используя датчик случайных чисел. Распечатать...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru