Решите,пожалуйста, задачу в Pascal ABC!!!!! Для массива из 20 элементов обнулить все отрицательные элементы и посчитать количество остальных.
Решите,пожалуйста, задачу в Pascal ABC!!!!!
Для массива из 20 элементов обнулить все отрицательные элементы и посчитать количество остальных.
Гость
Ответ(ы) на вопрос:
Гость// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
var a:=ArrRandom(20,-50,50); a.Println;
var k:=0;
for var i:=0 to a.Length-1 do
if a[i]<0 then a[i]:=0 else Inc(k);
a.Println;
Print('k=',k)
end.
Тестовое решение:
-4 -25 17 -24 -32 -2 21 28 -14 37 -19 -3 -28 33 -27 -10 -30 7 21 -38
0 0 17 0 0 0 21 28 0 37 0 0 0 33 0 0 0 7 21 0
k= 7
Не нашли ответ?
Похожие вопросы