Составьте программу которая заполняет массив а(1..10) случайными целыми числами в диапазоне от 1 до 10, затем меняет местами первый элемент со вторым, третий с четвертым, и т.д. выведите исходный и полученный массивы
237
431
Ответы на вопрос:
Var a: array[1..10] of integer; i: integer; begin randomize; writeln('ishodnyy massiv: '); for i: =1 to 10 do begin a[i]: =random(10)+1; write(a[i],' '); end; for i: =1 to 5 do begin a[i*2]: =a[i*2]+a[i*2-1]; a[i*2-1]: =a[i*2]-a[i*2-1]; a[i*2]: =a[i*2]-a[i*2-1]; end; writeln('novyy massiv: '); for i: =1 to 10 do write(a[i],' '); end.
// pascalabc.net 3.3, сборка 1576 от 16.11.2017// внимание! если программа не работает, обновите версию! 1) begin var a: =arrrandom(11,5,45).println; var x: = a.where(t -> t.iseven).sum; writeln('сумма четных элементов: ', x); end. 2) begin var a: = arrgen(5, t -> readreal).println; a: = a.select(t -> t/3).toarray.println; end.
Популярно: Информатика
-
Eyre13.01.2022 02:24
-
rusik6620.02.2023 14:25
-
dianaverina777724.09.2020 23:55
-
ХЕЕЕЛПАНИТЕ09.09.2021 08:56
-
Military4715.03.2020 11:35
-
ilyxa2418.01.2020 21:09
-
ТашаФедоренко09.01.2022 13:22
-
gtagiev12.05.2020 23:53
-
ALEXCOOL61302.02.2021 04:33
-
botikalmas03.08.2022 02:35