Создать процедуру, которая реализует решение предложенной задачи на паскале Задан массив с количеством элементов N?

Dyer 21 февр. 2020 г., 03:57:38

Const n = 20 ;

type v = array[1.

N] of integer ; w = array[1.

N div 2] of integer ;

var a : v ;

procedure FormW(var pa : w ; pOdd : boolean) ;

{ При pOdd = true формируется массив из нечетных элементов, при false - из четных }

var i, k : integer ;

begin k : = 0 ; if pOdd then i : = 1 else i : = 2 ; while i< ; = n do begin Inc(k) ; pa[k] : = a[i] ; i : = i + 2 end

end ;

var b, c : w ; i : integer ;

begin Randomize ; Writeln('Элементы исходного массива') ; for i : = 1 to n do begin a[i] : = Random(50) ; Write(a[i] : 3) end ; Writeln ; FormW(b, false) ; Writeln('Массив из элементов с четными номерми') ; for i : = 1 to (n div 2) do Write(b[i] : 3) ; Writeln ; FormW(c, true) ; Writeln('Массив из элементов с нечетными номерми') ; for i : = 1 to (n div 2) do Write(c[i] : 3) ; Writeln

end.

Тестовое решение :

Элементы исходного массива

11 37 22 43 44 14 3 29 2 25 0 30 37 44 24 45 34 30 39 42

Массив из элементов с четными номерми

37 43 14 29 25 30 44 45 30 42

Массив из элементов с нечетными номерми

11 22 44 3 2 0 37 24 34 39.

Een929 11 июн. 2020 г., 12:23:29 | 10 - 11 классы

Паскаль?

Паскаль.

Вычислить разность максимального среди элементов, имеющих четные значения, и максимального среди элементов, имеющих нечетные значения, в заданном целочисленном массиве из 30 положительных элементов (в предположении, что в массиве есть и четные, и нечетные элементы).

Керис 2 окт. 2020 г., 15:24:46 | 5 - 9 классы

1. Дан массив С(10)?

1. Дан массив С(10).

Сформируйте из него массивы А и В, предварительно определив его длину, включая в массив А четные положительные элементы, а в массив В – нечетные отрицательные.

2. Количество посещений кабинетов врачей поликлиники хранится в массиве.

Нечетный элемент массива определяет номер кабинета, четный – количество посещений.

Определите и выведите на экран число посещений каждого кабинета и общее число посещений.

ПОЖАЛУЙСТА.

Evgeniya198 23 мар. 2020 г., 23:05:18 | 5 - 9 классы

(Паскаль)Заполнить с клавиатуры массив из 10 элементов?

(Паскаль)Заполнить с клавиатуры массив из 10 элементов.

Вывести на экран те элементы массива, которые имеют четный номер и четное значение .

Olpolyak2010 16 авг. 2020 г., 04:26:16 | 5 - 9 классы

СОСТАВИТЬ БЛОК - СХЕМУ АЛГОРИТМА Задан массив с количеством элементов N?

СОСТАВИТЬ БЛОК - СХЕМУ АЛГОРИТМА Задан массив с количеством элементов N.

Сформируйте два массива : в первый включите элементы исходного массива с четными номерами, а во второй – с нечетными.

Алина26032000 21 апр. 2020 г., 02:29:02 | 5 - 9 классы

Сначала задано число N - количество элементов в массиве?

Сначала задано число N - количество элементов в массиве.

Далее через пробел записаны N чисел - элементы массива.

Необходимо вывести все четные элементы массива (то есть те элементы, которые являются четными числами).

Hatashaprudhik 4 авг. 2020 г., 01:37:25 | 10 - 11 классы

Дан целочисленный одномерный массив из n - элементов?

Дан целочисленный одномерный массив из n - элементов.

Вывести на экран четные элементы стоящие на нечетных массивов через паскаль.

Maria111hgh 26 авг. 2020 г., 23:06:16 | 10 - 11 классы

В заданном массиве к четным элементам прибавить a ?

В заданном массиве к четным элементам прибавить a .

А из элементов с четным номером вычесть b.

Vitaly198703 11 сент. 2020 г., 05:36:00 | 10 - 11 классы

Ввести два целочисленныхмассива − по 10 элементов в каждом?

Ввести два целочисленныхмассива − по 10 элементов в каждом.

Сформировать новый массив, на четных местах которого будут элементы с нечетными индексами из первого массива, а нанечетных – с четными индексами из второго.

Написать программу на паскале.

ЛанаЛо 18 июл. 2020 г., 14:36:57 | 10 - 11 классы

Даны два массива?

Даны два массива.

Получить третий массив который на четных номерах элементы второго массива на нечетных элементы первого массива.

Решите пожалуйста через pascal ABC и опишите программу.

Artem1918 1 янв. 2020 г., 05:23:47 | 10 - 11 классы

Создать два одномерных массива, состоящих из целых чисел?

Создать два одномерных массива, состоящих из целых чисел.

Элементы массива вводятся с клавиатуры.

В первом массиве найти номер первого нечетного элемента массива.

Во втором массиве найти первый четный элемент массива.

Решить на Pascal ABC (При решении задач обязательно использовать одномерные массивы и процедуры или функции работы с одномерными массивами.

).