Тема: одномерные массивы. вариант 10 pascal: 1.дан одномерный массив, который содержит не более 50 целых чисел. заменить каждый элемент массива суммой соседних индексов. если соседних элементов нет, то число оставить без изменения. 2.дан одномерный массив, который содержит не более 40 целых чисел. найти сумму отрицательных элементов, которые расположены между максимальным и минимальным элементом. 3. дан одномерный массив, который содержит не более 60 символов. ответить на вопрос, есть ли среди данных символов сочетание «…».
263
463
Ответы на вопрос:
Только для pascalabc.net 3.2 ! begin var n: =readinteger('число элементов массива-'); var a: =arrrandom(n,-50,50); a.println; for var i: =1 to n-2 do a[i]: =2*(i+1); a.println end. пример число элементов массива- 10 -40 4 -49 0 -47 41 49 33 -31 -1 -40 4 6 8 10 12 14 16 18 -1 begin var n: =readinteger('число элементов массива-'); var a: =arrrandom(n,-50,50); a.println; var i1: =a.indexmax; var i2: =a.indexmin; writeln(a[min(i1,i2)+1: max(i1,i2)].where(x-> x< 0).sum) end. пример число элементов массива- 18 -45 -30 -49 -44 34 -5 -12 -28 22 14 -39 -20 -46 50 6 21 20 -47 -194 begin var a: =readlnstring('введите строку; ').tochararray; // было сделано так только ради получения массива символов, // который на самом деле только мешает writeln(a); if pos('',a.joinintostring)> 0 then writeln('троеточие в массиве есть') else writeln('троеточия в массиве нет') end. пример введите строку; 6ye$% dfdrt.. [6,y,e,$,%, ,d,f,d,r,,r,r,t,e,r,,f,d,g,d] троеточие в массиве есть
1кв килобайт = 1024 байт. нужно разделить число байт на 1024 и получим в кв 1 мв мегабайт = 1024 кв. нужно опять разделить, но уже кв 1 gb гигабайт = 1024 мв (мб) 1 тв терабайт = 1024 gb (гб)
Популярно: Информатика
-
sargisxachatry07.12.2021 15:27
-
Zexory19.09.2022 11:50
-
carrot423.02.2021 10:23
-
svetlanaka12327.05.2021 00:09
-
данаасус12.08.2020 06:48
-
ali12ali28.08.2020 06:05
-
faets30.01.2022 02:23
-
MezarYT01.03.2021 06:35
-
petrosiannikita07.01.2023 05:42
-
emilityan30.04.2022 08:00