ответ:Задание 2 Базовое ПО содержит в себе минимальный набор средств обеспечивающих работу компьютера: операционная система; операционная оболочка; сетевая операционная система. Сервисное ПО - это програмиы, и программные комплексы которые расширяют возможности базового ПО, и организовывают более удобную работу компьютера для пользователя: программы диагностики работо компьютера; антивирусные программы; програмиы обслуживания дисков; програмиы архивирования данных; програмиы обслуживания сети. Сервисное ПО можно приобрести отдельно от компьютера, базовое же уже встроено в компьютер, сервисное ПО обеспечивает более комфортную систему компьютера для пользователя, открывает больше возможностей. Объяснение:Поставь лайк ;)лайк - плюс респект∞
// PascalABC.NET 3.1, сборка 1219 от 16.04.2016 begin var a:=ReadLines('m17.txt').JoinIntoString.ToIntegers; a.Println; var b:=a.Select((x,i)->Rec(x,i)).Where(x->x.Item1<0) .Select(x->x.Item2).ToArray; if b.Count<>2 then Writeln('Количество отрицательных элементов не равно двум') else begin a:=SeqFill(b[0],0).Concat(a.Skip(b[0]).Take(b[1]-b[0]+1)) .Concat(SeqFill(a.Length-b[1]-1,0)).ToArray; a.Println end end.
Файл с исходными данными имеет имя m17.txt. Тестовый файл находится во вложении. Разбивка на строки сделана по 5 значений, но может быть совершенно произвольной. Также нет привязки именно к 17 числам, главное - чтобы отрицательных чисел было ровно два, иначе будет выдано сообщение о их неверном количестве.
//PascalABC.NET v3.3 1633
var arr: array [1..10] of integer;
begin
for var i:=1 to 10 do
arr[i]:=random(5,10);
write('Исходный массив: ');
arr.PrintLn(', ');
var count:=0;
for var i:=1 to 10 do
if arr[i] = 7 then
count += 1;
writeln('Количество элементов, равных 7: '+count);
end.