<em>// PascalABC.NET 3.2, сборка 1488 от 21.06.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
<u>№1</u>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
Writeln('Наименьший элемент равен ',a.Min)
end.
<u>Пример</u>
n= 17
-34 -4 -16 50 -12 -13 -40 -10 4 1 46 -46 2 -13 4 -4 20
Наименьший элемент равен -46
<u>№2</u>
begin
var (m,n):=ReadInteger2('Количество строк и столбцов в массиве:');
Writeln('Вводите элементы построчно');
var t:=ReadMatrInteger(m,n).ElementsWithIndexes.MaxBy(x->x[0]);
Writeln('Максимальный элемент A[',t[1]+1,',',t[2]+1,']=',t[0])
end.
<u>Пример</u>
Количество строк и столбцов в массиве: 3 4
Вводите элементы построчно
5 -6 0 9
12 7 12 0
-8 23 6 20
Максимальный элемент A[3,2]=23
<u>№3</u>
begin
var a:=ArrRandom(ReadInteger('n='),-20,20); a.Println;
Writeln('Сумма положительных элементов равна ',a.Where(x->x>0).Sum);
Writeln('Количество отрицательных элементов равно ',a.Where(x->x<0).Count);
Writeln('Количество нулевых элементов равно ',a.Where(x->x=0).Count);
end.
<u>Пример</u>
n= 18
-16 -15 -20 -20 17 2 -3 13 15 -11 -10 -6 0 -5 10 0 20 10
Сумма положительных элементов равна 87
Количество отрицательных элементов равно 9
Количество нулевых элементов равно 2
Var i,k:integer;
rez:real;
begin
for i:=10 to 99 do
if (i mod 2)=0 then
begin
k:=k+1;
rez:=rez+i;
end;
rez:=rez/k;
writeln(rez:0:1);
<span>end.</span>
Вычислительная техника является важнейшим компонентом процесса вычислений и обработки данных. Первыми приспособлениями для вычислений были, вероятно, всем известные счётные палочки, которые и сегодня используются в начальных классах многих школ для обучения счёту. Развиваясь, эти приспособления становились более сложными, например, такими как финикийские глиняные фигурки, также предназначаемые для наглядного представления количества считаемых предметов. Такими приспособлениями, похоже, пользовались торговцы и счетоводы того времени.
Постепенно из простейших приспособлений для счёта рождались всё более и более сложные устройства: абак (счёты), логарифмическая линейка, арифмометр, компьютер. Несмотря на простоту ранних вычислительных устройств, опытный счетовод может получить результат при помощи простых счётов даже быстрее, чем нерасторопный владелец современного калькулятора. Естественно, производительность и скорость счёта современных вычислительных устройств уже давно превосходят возможности самого выдающегося расчётчика-человека.
.3ds - 3д модели
.dwg - чертежи AutoCAD
.rar - архивы
.exe - файлы исполнители
.zip - архивы
.mp3 - аудиофайлы
.flac - аудиофайлы
.wav - аудиофайлы
.mod - аудиофайлы
.pct - изображения
.mpg - видео
.mov - видео
.jpg - изображения
.txt - текст
.sub - субтитры для фильмов
.log - текс
.gif - движущееся изображение
.bmp - изображение
