Агафоник
6 год назад
Дан массив А(10), который вводится с клавиатуры. Все элементы, которые меньше первого элемента умножить на 2. Вывести измененный массив.нааписать пограмму на паскале
ОТВЕТЫ
Ananiy
Jul 23, 2019
// PascalABC.NET 3.2, сборка 1344 от 22.11.2016
begin
var a:=ArrRAndom(10,1,30); a.Println;
var k:=a[0];
a:=a.Select(x-gt;xlt;kx*2:x).ToArray; a.Println
end.
Пример
10 7 22 20 1 22 4 23 1 11
10 14 22 20 2 22 8 23 2 11
begin
var a:=ArrRAndom(10,1,30); a.Println;
var k:=a[0];
a:=a.Select(x-gt;xlt;kx*2:x).ToArray; a.Println
end.
Пример
10 7 22 20 1 22 4 23 1 11
10 14 22 20 2 22 8 23 2 11
243
