Как в паскале авс написать программу , чтобы выводилась под каким номером наименьшее число

1шаг

опустим, что вы скачали и установили паскаль. затем откройте его. для программирования вам надо небольшое знание языка. суть нашей программы в том, чтобы она складывала любые числа. для этого нам нужны переменные. чисел у нас будет 2. но в каждой , даже в самой простой, есть ответ. значит добавляем 3 переменную.

  2шаг

и так. чтобы оформить наши переменные перейдите на язык и напишите в начале программы слово “var”. а после через запятую наши 3 переменные, а, в, с, и через двоеточие поставьте тип “integer” далее напишите begin – начать.на данном этапе программа будет выглядеть так:

var a,b,c: integer; begin

  3шаг

1) в кои-8 каждый символ кодируется 1 байтом. 32*40*48 байт = 32*4*5*8*6 = 32*32*5*6 = 30*1024 байт =  30 кбайт. информационный объем тоже  равен 30 кбайт =  30*8 = 240 кбит. 2) в unicode каждый символ кодируется 2 байтами. во фразе 60 знаков, включая пробелы, точки и запятые. объем этого сообщения 60*2 = 120 байт. 3)  в unicode каждый символ кодируется 2 байтами. информационный объем 16*30*32*2 = 32*30*32 = 30*1024 = 30 кбайт = 30*8 = 240 кбит. размер статьи 30 кбайт. 4) размер статьи 64*52*52 = 64*4*13*4*13 = 256*169 знаков. если его информационный объем равен 169 кбайт, то каждый  1 кбайт = 1024 байт  =  256 знаков. 1 знак = 1024/256 = 4 байта = 4*8 = 32 бита. 5) информационный объем равен  128 кбайт. 1 знак в unicode = 2 байта. в книге 128*1024/2 = 64*1024 = 2^6*2^10 = 2^16 = 65536 знаков. 6) 2048 символов = 1/512 мбайта = 1024/512 = 2 кбайта = 2048 байт. каждый символ кодируется 1 байтом = 8 бит. в алфавите 2^8 = 256 символов. 7) в 64-символьном алфавите каждый символ кодируется 6 битами, потому что 64 = 2^6. 20 символов = 20*6 = 120 бит = 120/8 = 15 байт.

1. var mas: array[0..10] of integer ; i,min,j: integer; begin min: =0; writeln('введите числа: '); for i : = 1 to 10 do begin readln(mas[i]); if (mas[i] < 0) then j: =mas[i]; if j then min: =j; end; writeln('минимальное отрицательное число: ',min); end. 2. var mas: array [0..10] of integer; i, max, j: integer; begin writeln('введите числа: '); for i : = 1 to 10 do begin readln(mas[i]); if abs(mas[i - 1]) < abs(mas[i]) then max : = mas[i] ; end; writeln('наибольшее по модулю число: ', max); end.