Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Ближайшее к числу Здравствуйте! Т.к. я в массивах не силен обращаюсь за помощью. Дана такая задача: В телешоу ведущий предлагает участникам угадать цену предмета в указанном году. Участники называют версии цен, затем... https://www.cyberforum.ru/ pascal/ thread191802.html Pascal найти треугольник, содержащийся в заданной окружности и имеющий максимальный периметр
Входные данные: -задана окружность - координаты центра и радиус вводятся с клавиатуры -массив треугольников на плоскости, случайно заполнен Задание: найти треугольник, содержащийся в заданной...
Pascal Определить порядковый номер самого быстрого автомобиля https://www.cyberforum.ru/ pascal/ thread191791.html
В массиве хранится информация о максимальной скорости каждой из 40 марок легковых автомобилей. Определить порядковый номер самого быстрого автомобиля.Если таких автомобилей несколько,то должен быть...
Pascal Лабораторка по програмированию..(Массивы) https://www.cyberforum.ru/ pascal/ thread191763.html
В массиве хранится информация о максимальной скорости каждой из 40 марок легковых автомобилей. Определить порядковый номер самого быстрого автомобиля.Если таких автомобилей несколько,то должен быть...
Pascal Для зачёта по практике.
Игра в числа Никифор и Трофим играют в следующую игру: они написали на доске натуральное число, не превосходящее 2000000000, и по очереди делают ходы, причем первым ходит Никифор. Ход состоит в...
Pascal Вычислить значение функции https://www.cyberforum.ru/ pascal/ thread191739.html
оч прошу помогите.... извеняюсь но не могу написать функцию так как надо) по этому так: f(x)=тут фигурная скобка под которой:9 если Х меньше либо равно -3 ...
Pascal Массивы_пжалуста^^ Здраствуйте , не могли бы вы мне написать код для этой задачки : Создать файл с именем MAS и расширением txt. Заполнить, вручную, созданный файл массивом вещественных чисел (размер массива 5x5).... https://www.cyberforum.ru/ pascal/ thread191732.html Pascal Решить задания на Паскаль!!!
1)Описать процедуру suma(c,a,b),которая прибавляет рациональные числа a и b,присваивает их сумму рациональному числу z. Числитель взять как int Знаменатель как 2)Написать программу с...
Pascal Двумерные массивы.Ввести матрицу... https://www.cyberforum.ru/ pascal/ thread191709.html
Ввести матрицу АNxM , вывести ее. В каждой строке матрицы найти k – количество отрицательных элементов. Переставить в обратном порядке последние (M − k ) элементов матрицы.
Pascal программа-переделать https://www.cyberforum.ru/ pascal/ thread191699.html
Помогите переделать а то я незнаю как её доделать((, плиззз))вот такое зание((: Постановка задачи: Подготовить данные об абитуриентах,поступающих в техникум.Информацию о каждом абитуриенте оформить...
Входной файл Pascal
На вход программе подаются сведения о сдаче экзаменов учениками 11-х классов некоторой средней школы. В первой строке сообщается количество учеников N, которое не меньше 10, но не превосходит 100,...
Pascal Процедуры и функции https://www.cyberforum.ru/ pascal/ thread191665.html
Пользователь вводит три вещественных числа: a,b,c. Составить функцию для решения уравнения (x+a)/(x+b)=сx, которая получает введенные числа в качестве параметров. Найденные корни уравнения функция...
Почетный модератор
64271 / 47570 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
15.11.2010, 21:44 0

Удалить все положительные элементы, имеющие четный порядковый номер, идущие после минимального элемента массива. - Pascal - Ответ 1113503

15.11.2010, 21:44. Показов 1769. Ответов 2
Метки (Все метки)

Ответ

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
uses crt;
type arr=array[1..15] of integer;
var a:arr;
    i,j,n: byte;
    i_min: byte;
    min: integer;
Begin
  clrscr;
  n:=15;
  randomize;
  writeln ('Ishodi massiv');
  for i:=1 to n do
  begin
  a[i]:=-20+random(41);
  write(a[i]:4);
  end;
  writeln;
  min:=a[1];
  i_min:=1;
  for i:=2 to n do
  if a[i]<min then
   begin
    min:=a[i];
    i_min:=i;
   end;
i:=n; //начать нужно с конца, чтобы индексы не менялись у непроверенных
while i>=i_min+1 do
if (a[i]>0) and (i mod 2=0) then
 begin
  for j:=i to n-1 do
  a[j]:=a[j+1];
  n:=n-1; //удалили
  i:=i-1; //к началу
 end
else i:=i-1; //не удалили, просто к началу
writeln (' Rezultat ');
for i:=1 to n do
write (a[i]:4);
readln;
end.


Вернуться к обсуждению:
Удалить все положительные элементы, имеющие четный порядковый номер, идущие после минимального элемента массива. Pascal
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.11.2010, 21:44
Готовые ответы и решения:

В одномерном массиве А=(а1,а2...аn) все положительные элементы, имеющие чётный порядковый номер
Помогите плиз написать программу: В одномерном массиве А=(а1,а2...аn) все положительные элементы,...

Все положительные элементы массива, имеющие четный порядковый номер, переписать в начало массива
В одномерном массивеA=(a1, а2, ..., а n) все положительные элементы, имеющие четный...

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

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

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

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

Заменить единицами все положительные элементы массива имеющие четный номер и идущие после максимального
Задан массив из k чисел. Заменить единицами все положительные элементы, имеющие четный порядковый...

Одномерные и Двумерные массивы. Удалить все положительные элементы, имеющие четный порядковый номер
В массиве A=(a1, а2, ..., аn) удалить все положительные элементы, имеющие четный порядковый номер,...

Заменить нулями все положительные элементы массива, идущие после минимального элемента
Решить задачу для динамического массива, не используя индексацию. В одномерном массиве заменить...

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