в одномерном массиве x(10) из положительных - вопрос №940718610 от atoko 28.01.2023 04:52

Question

Информатика: ﻿в одномерном массиве x(10) из положительных и отрицательных чисел найти: количество отрицательных элементов в первой половине половине массива, поставить найденное значение на место первого элемента? по паскалю

atoko · Answer

PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018Внимание! Если программа не работает, обновите версию!

begin

var x := ArrRandom(10, -50, 50);

x.Println;

x[0] := x.Take(5).Where(t -> t < 0).Count;

x.Println

end.

в одномерном массиве x(10) из положительных и отрицательных чисел найти: количество отрицательных э