Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Даны результаты аттестации группы по нескольким предметам https://www.cyberforum.ru/turbo-pascal/thread2576294.html
Даны результаты аттестации группы по нескольким предметам. Запрограммировать ввод и удаление результатов их просмотров, поиск результатов по Ф.И.О,расчёт и ввод итогов в порядке убывания средних...
Производить ввод и редактирование данных с сохранением в файле Turbo Pascal
По данным о наименовании товара, его цене, и кол-ву, разработать проект, позволяющий: 1)Производить ввод и редактирование данных с сохранением в файле. 2)Осуществлять поиск данных по наименованию...
Известны Ф.И.О участников и их результаты по прыжкам в высоту Turbo Pascal
Известны Ф.И.О участников и их результаты по прыжкам в высоту. Запрограммировать добавления участника и его результаты, удаления, просмотр всей таблицы в отсортированном виде(по убыванию...
Turbo Pascal Векторы с наибольшем модулем перенести в конец файла Есть вот такое задание - дан файл компоненты которого являются n мерные векторы. Векторы с наибольшем модулем перенести в конец файла. Нужен код программы, буду очень благодарен. вот такое должно... https://www.cyberforum.ru/turbo-pascal/thread2575654.html
Turbo Pascal Структура MARSH https://www.cyberforum.ru/turbo-pascal/thread2575086.html
Описать структуру с именем MARSH, содержащую следующие поля: - название начального пункта маршрута; - название конечного пункта маршрута; - номер маршрута. Написать программу, выполняющую...
Определить, принадлежит ли точка с координатами x, y заштрихованной части плоскости Turbo Pascal
Даны действительные числа x, y. Определить, принадлежит ли точка с координатами x, y заштрихованной части плоскости
Turbo Pascal Составить программу вычисления значения функций
Turbo Pascal Вывести строку — название соответствующей цифры на русском языке. Дано целое число в диапазоне 0 – 9. Вывести строку — название соответствующей цифры на русском языке (0 — "ноль", 1 — "один", 2 — "два", ...). 95 https://www.cyberforum.ru/turbo-pascal/thread2574493.html
Turbo Pascal Определить, принадлежит ли точка с координатами x, y заштрихованной части плоскости. https://www.cyberforum.ru/turbo-pascal/thread2574481.html
1. Составить программу вычисления значения функций: y={(1,при х=>0;0,при х<0;) 2. Даны действительные числа x, y. Определить, принадлежит ли точка с координатами x, y заштрихованной части...
Turbo Pascal Определить среднюю скорость движения поезда . Составить программу для соответствующего варианта, отладить программу на компьютере и обработать результаты вычислений. Одно и тоже расстояние поезд прошел в одном направлении со скоростью км/час,... https://www.cyberforum.ru/turbo-pascal/thread2574459.html
ValentinNemo
1535 / 450 / 309
Регистрация: 15.01.2019
Сообщений: 1,462
28.01.2020, 15:54 0

Переписать положительные элементы целочисленного массива Х[15] в массив У[15]

28.01.2020, 15:54. Просмотров 146. Ответов 4
Метки (Все метки)

Ответ

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
program Project1;
const
  maxelem = 100;
var
  a,b: array [1..maxelem] of integer; { Переменные для  хранения массивов.}
  n: integer; {  Переменная для хранения значения количества элементов в массиве.}
  i,k: integer; { Вспомогательные переменные для организации циклов.}
 
begin
  write('Введите значение максимального количества вводимых элементов массива: ');
  Readln(n);
  for i:= 1 to n do
    begin
      write('Введите значение ',i,' элемента: ');
      Read(a[i]);
    end;
  readln;
  writeln('Исходный массив: ');
  for i:= 1 to n do
    begin
      write(a[i]:5);
      if i mod 10 = 0 then
        writeln;
    end;
  k:= 0;
  for i:= 1 to n do
    if a[i] > 0 then
      begin
        inc(k);
        b[k]:= a[i];
      end;
  writeln;
  writeln('Новый массив: ');
  for i:= 1 to k do
    begin
      write(b[i]:5);
      if i mod 10 = 0 then
        writeln;
    end;
  Readln;
end.


Вернуться к обсуждению:
Переписать положительные элементы целочисленного массива Х[15] в массив У[15]
1
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.01.2020, 15:54
Готовые ответы и решения:

Переписать положительные элементы целочисленного массива Х[15] в массив У[15]
Переписать положительные элементы целочисленного массива Х в массив У. (Элементы массива Х вводятся...

Переписать элементы целочисленного массива, кратные пяти, подряд в другой массив
применение процедур переписать элементы целостного массиваN(20),кратные пяти,подряд в массив M,а...

Переписать положительные элементы массива X (30) и Y (30) в массив Z
Переписать положительные элементы массива X(30) и Y(30) в массив Z. Заполнение массива Z в...

В массив B переписать положительные элементы массива A(N)
Помогите сделать,буду благодарен! 1) В массив B переписать положительные элементы массива A(N) -...

4
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.