Var
a: array [1..12] of real; //Массив стоимости
s: real; //сумма
i: integer;
begin
s:= 0;
for i:= 1 to 12 do {12 раз вводим стоимость предмета и прибавляем ее к значению s}
begin
writeln('Введите стоимость предмета');
readln(a[i]);
s:= s + a[i];
end;
writeln('Общая стоимость всех предметов: ', s);
end.
<u>PascalABC.NET 3.4.0, сборка 1677 от 17.06.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
function CountCond(a:array of real):=a.Where(t->t<a.Average).Count;
begin
var a:=ArrGen(15,i->Cos(5*(i+1))-1/sqrt((i+1)**3+9)); a.Println;
Writeln('Элементов массива, меньших среднего арифметического: ',CountCond(a))
end.
Вот программа!
Но тут я сначала вывела массив на экран, а уже потом вывела отрицательные элементы!Чтобы легче было проверять правильность программы!И числа я взяла с рандома в отрезке от -20 до 20)
Может быть не исполнимые, а исполняемые файлы? Тогда эти вирусы так и называются - файловые. Обычно такие файлы с вирусом имеют расширение exe или реже com
Удачи! :)