[any] Pascal: (без хранения введённых чисел => "эффективная")
var a, i, x: integer; begin for i := 1 to 6 do begin read(a); if a>0 then x := x + 1 else if a<0 then x := x - 1 end; if x>0 then write('Больше положительных') else if x<0 then write('Больше отрицательных') else write('Одинаково')end.PascalABC.NET: (с хранением введённых чисел в массиве)
## var a := ReadArrInteger(6); var x := a.Sum(x -> x>0 ? 1 : -1); if x=0 then Write('Одинаково') else Print('Больше', x>0 ? 'положительных' : 'отрицательных')Пример работы:
Электронные презентации-это презентации которые выводятся с проектора на электронную доску,стену и тп.В современное время люди пользуются электронными презентациями чаще.Их создавать очень просто для тех кто немножко разбирается в компьютерах.Электронные презентации создаются примерно так: сначала находим нужную информацию,создаем слайды,оформляем и скачиваем на флешку либо на какой нибудь другой носитель информации.Электроннми презентациями могут быть видео,клипы,слайды и т.д.И их темы тоже разные.Например можно создать презентацию о своем городе либо о любимом певце. Электронные презентации "моднее" чем презентации на листочках или записанных руками.
