<em>// PascalABC.NET 3.2, сборка 1338 от 16.11.2016</em>
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
Дано:
размер=25*30 см
разр. способ.=300*300
I=3 байт=24 бит
Найти:
V - ?
Решение:
V=K*I
1 дюйм = 2.54 см
25 см=25*2.54≈9.8 дюймов
30 см=30*2.54≈11.8 дюймов
K=9.8*11.8*300*300=10 407 600
V=10 407 600*24=249 782 400 бит : 8=31 222 800 байт : 1024=30 491 Кб : 1024≈29.8 Мб
Ответ: 29.8 Мб
Uses Crt; // подключение модуля Crt
Var
a,b,c,S:real; // объявление переменных вещественного типа
Begin
ClrScr; // очистка консоли перед новым вводом переменных
Write('Введите три числа: '); // вывод приглашения к вводу
ReadLn(a,b,c); // считывание введённых с клавиатуры чисел в переменные a,b и c
S:=a+b+c; // запись суммы чисел в переменную S
if S > 10 then Write('Их среднее арифметическое: ',S/3)
else if S = 10 then Write('Их произведение: ',a*b*c)
else Write('Я ничего не понимаю');
ReadLn // ожидание нажатия пробела (чтобы консоль не закрылась сразу)
End.
Пример работы программы:
Введите три числа: 1 7 10
Их среднее арифметическое: 6