70Б. Pascal. Каждый отрицательный элемент массива F(21) возвести в квадрат и вывести исходный и изменённый массивы.
Ответы
Ответ дал:
0
// PascalABC.NET 3.1, сборка 1192 от 07.03.2016
begin
var a:=ArrRandom(21,-50,50); a.Println;
for var i:=0 to 20 do
if a[i]<0 then a[i]:=sqr(a[i]);
a.Println
end.
Тестовое решение:
-1 -29 28 -1 19 -28 14 2 -33 46 12 27 30 -19 -19 -19 -17 29 -5 31 -27
1 841 28 1 19 784 14 2 1089 46 12 27 30 361 361 361 289 29 25 31 729
begin
var a:=ArrRandom(21,-50,50); a.Println;
for var i:=0 to 20 do
if a[i]<0 then a[i]:=sqr(a[i]);
a.Println
end.
Тестовое решение:
-1 -29 28 -1 19 -28 14 2 -33 46 12 27 30 -19 -19 -19 -17 29 -5 31 -27
1 841 28 1 19 784 14 2 1089 46 12 27 30 361 361 361 289 29 25 31 729
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
8 лет назад
9 лет назад
9 лет назад