//Pascal ABC.NET 3.1 сборка 1256
Const
n=5;
begin
var a:=ReadArrInteger(n);
var Sra:=a.where(x -> x>0).Count;
writeln('Положительных:',Sra);
var Sg:=a.Where(x -> x<0).Count;
writeln('Отрицательных:',Sg);
end.
Пример ввода:
-1
1
-2
2
3
Пример вывода:
Положительных:3
Отрицательных:2
Алгоритм:
<span>Перебирать элементы массива в цикле и присваивать им значения формулы. ВЫводить элемент ан экран без перевоад строки. Если элемент массива меньше 50 приплюсовывать к значению суммы и увеличивать счетчик. </span>
<span>Вывести на экран отношение суммы к значению счетчика.</span>
<em>1)</em> Представленная в таблице информация наглядна компактна и легко обозрима.
<em>2)</em> Под каждое словесное описание можно подобрать информационную модель.
<em>3)</em> Расписание уроков,правила в виде таблиц,таблица умножения, таблица Менделеева.
<span><em>4)</em> Все возможные расписания (например уроков), рекламные акции, статистика в виде таблиц, инструкции по применению.</span>