Pascal?

Sofya111111 16 июн. 2020 г., 06:30:55

Const N = 20 ;

var a, b : array[1.

N] of integer ; i, j : integer ;

begin writeln('Массив A : ') ; for i : = 1 to N do begin a[i] : = random(199) - 99 ; write(a[i] : 4) ; if (a[i] > ; 0) and (a[i] mod 3 = 0) then begin j : = j + 1 ; b[j] : = a[i] ; end ; end ; writeln ; writeln('Массив B : ') ; for i : = 1 to j do write(b[i] : 4) ;

end.

Пример работы программы :

Массив A : 3 73 - 1 - 35 97 - 14 25 34 - 79 5 - 39 39 45 96 - 85 - 59 - 14 76 - 53 - 12

Массив B : 3 39 45 96.

Yulkafedyulka 16 июн. 2020 г., 06:30:59

/ / PascalABC.

NET 3.

0, сборка 1160 от 05.

02. 2016

begin var a : = ArrRandom(ReadInteger('n = '), - 50, 50) ; a.

Println ; var b : = a.

Where(x - > ; (x> ; 0) and (x mod 3 = 0)).

ToArray.

Println

end.

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

n = 15

15 39 - 3 - 40 6 - 47 - 19 - 19 17 14 7 31 10 - 37 - 13

15 39 6.

Evignatova2013 12 февр. 2020 г., 02:24:45 | 10 - 11 классы

Дан массив Е(14)?

Дан массив Е(14).

Сформировать массив F, состоящий из номеров положительных элементов массива Е.

Массивы Е и F распечатать.

Сделать на паскале срочно.

Кокушка 30 янв. 2020 г., 18:15:18 | 5 - 9 классы

Дан двухмерный массив, из четных элементов кратных 5 сформировать массив А, из нечетных элементов кратных 3 сформировать массив Б?

Дан двухмерный массив, из четных элементов кратных 5 сформировать массив А, из нечетных элементов кратных 3 сформировать массив Б.

Помогите пожалуйста).

Muselp 9 мар. 2020 г., 11:35:17 | 10 - 11 классы

Дан массив X(N, M)?

Дан массив X(N, M).

Найти произведение элементов тех столбцов массива, в которых все элементы положительные.

Из полученных значений сформировать одномерный массив.

Помогите пожалуйста!

Anna19681 25 авг. 2020 г., 06:14:42 | 5 - 9 классы

Дана матрица С[Н, М]?

Дана матрица С[Н, М].

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

Moskvina04 31 авг. 2020 г., 07:25:56 | 10 - 11 классы

Дан массив А(к)?

Дан массив А(к).

Из элементов массива А сформировать массив В таким образом : сначала поместить все отрицательные массивы элемента А, потом равные нулю, а положительные в конце.

Daryanovikova4 8 мар. 2020 г., 02:43:17 | 10 - 11 классы

Решить задачу на языке Pascal?

Решить задачу на языке Pascal.

Дан массив LL, содержащий 12 элементов вещественного типа – положительных, отрицательных и равных нулю.

Сосчитать количество ненулевых элементов массива и сформировать из них новый массив.

Найти модуль сумы элементов нового массива.

Индексацию элементов заданного массива начать с 0.

Для перебора элементов массива использовать оператор While.

154685 24 февр. 2020 г., 16:50:24 | 5 - 9 классы

Дан массив А(30)?

Дан массив А(30).

Сформировать новый массив из значений элементов массива А кратных 5.

Pinirob 14 дек. 2020 г., 08:01:44 | 10 - 11 классы

Сформировать одномерный массив из 10 целых элементов?

Сформировать одномерный массив из 10 целых элементов.

Найти сумму положительных и четных элементов массива.

Pretty36220 6 июл. 2020 г., 05:08:43 | 5 - 9 классы

Задача?

Задача.

Массив А вводится с клавиатуры.

Сформировать новый массив В , состоящий из положительных элементов массива А.

Размер произвольный.

Komarovadaria0 4 дек. 2020 г., 22:45:00 | 10 - 11 классы

Дан массив M (10) ?

Дан массив M (10) .

Сформировать массив N, в который выйдут квадратные корни из положительных элементов массива M.

Массивы M и N распечатать на бейсике.