// PascalABC.NET 3.2, сборка 1338 от 16.11.2016 begin var a:=ReadArrInteger('Вводите данные:',ReadInteger('n=')); a:=a.Select(x->Abs(x)).ToArray; a.Println end.
Var a:array of integer; var i, n:integer; begin readln(n);//количество считываемых чисел a := new integer[n]; for i:=1 to n do begin read(a[i]); a[i] := abs(a[i]); end; end.
Многие пользователи активно используют программу PowerPoint для создания презентаций. Но мало кто знает, какие требования при этом должны выполняться, каких ошибок нужно избегать. Рассмотрим основные ошибки, которые совершает пользователь при создании презентации. Ошибка 1. Фон слайда не сочетается с темой презентации. И мы видим, к примеру, презентацию о революциях в России на фоне с березками и грибочками.Ошибка 2. Использован фон, который входит в набор программы PowerPoint. За многие годы существования программы PowerPoint стандартными шаблонами воспользовались тысячи людей, опубликовали свои презентации в сети, показали на выступлениях. Эти шаблоны уже просто надоели слушателям.
Sub m2() Cells.Clear Dim n As Integer, i As Integer, min As Integer n = InputBox("n(>5) = ") Cells(1, 1).Value = "n = " + Str(n) ReDim a(1 To n) For i = 1 To n a(i) = InputBox("a(" + Str(i) + ")") Next i Cells(2, 1).Value = "Исходный массив" Range(Cells(3, 1), Cells(3, n)).Value = a min = a(1) For i = 2 To n If a(i) < min Then min = a(i) Next i Cells(4, 1).Value = "min = " + Str(min) Cells(5, 1).Value = "Полученный массив" For i = n - 4 To n a(i) = min Next i Range(Cells(6, 1), Cells(6, n)).Value = a End Sub
begin
var a:=ReadArrInteger('Вводите данные:',ReadInteger('n='));
a:=a.Select(x->Abs(x)).ToArray; a.Println
end.
Пример
n= 5
Вводите данные: 4 -2 0 4 -7
4 2 0 4 7