1. заполнить массив с клавиатуры целыми числами. вывести элементы этого массива на экран. (добавить комментарии) 2. заполнить массив таким образом, чтобы каждый его элемент был равен утроенному значению его порядкового номера (индекса 3. ввести массив с клавиатуры, найти и вывести сумму элементов массива. 4. ввести массив с клавиатуры, подсчитать, сколько в нем положительных элементов, а сколько отрицательных. 5. в одномерном массиве подсчитать, сколько отрицательных элементов находится на четных местах и сколько положительных на нечетных. 6. элементы массива вводятся с клавиатуры, заменить в нем все отрицательные элементы их квадратами, а положительные кубами. вывести на экран исходный и новый массив. 7. ввести массив с клавиатуры, найти и вывести на экран максимальный и минимальный элементы. 8. написать программу, которая определяет есть ли в массиве элемент введенный пользователем, подсчитывает их количество и выводит номер первого найденного элемента.

Const      n = 5;   var    a,b : array [1..n] of integer;     i,s,k1,k2,max,min : integer;       begin  for i : = 1 to n do    readln (a[i]);       for i : = 1 to n do    writeln (i,')elem = ',a[i]);       end.    begin  for i : = 1 to n do    a[i] : = i * 3;       for i : = 1 to n do    writeln (i,')elem = ',a[i]);   end.    begin  s : = 0;   for i : = 1 to n do    begin    readln (a[i]);     s : = s + a[i];     end;         writeln (s); end.  begin    k1 : = 0; k2 : = 0;       for i : = 1 to n do    begin    readln (a[i]);     if a[i] > 0 then      k1 : = k1 +1;     if a[i] < 0 then      k2 : = k2 +1;     end;           writeln ('+ ',k1);     writeln ('- ',k2);   end.   begin  k1 : = 0; k2 : = 0;       for i : = 1 to n do    begin    readln (a[i]);     if (a[i] > 0) and (i mod 2 = 1) then       k1 : = k1 +1;     if (a[i] < 0) and (i mod 2 = 0) then      k2 : = k2 +1;     end;         writeln ('+ ',k1); writeln ('- ',k2);   end.    begin  for i : = 1 to n do    begin    readln (a[i]);     if a[i] < 0 then      b[i] : = sqr (a[i]);     if a[i] > 0 then      b[i] : = a[i] * a[i] * a[i];     end;         for i : = 1 to n do    write (a[i],' ');   writeln ();   for i : = 1 to n do    write (b[i],' ');   end.      begin  for i : = 1 to n do    readln (a[i]); max : = a[1]; min : = a[1]; for i : = 2 to n do     begin    if a[i] > max then      max : = a[i];     if a[i] < min then      min : = a[i];     end;   writeln ('max=',max);     writeln ('min=',min);   end.      begin  for i : = 1 to n do    readln (a[i]);       writeln ('found : ');   readln (s);         k1 : = 0; k2 : = 0;   for i : = n downto 1 do    if a[i] = s then    begin      k1 : = k1 + 1;       k2 : = i;     end;   writeln ('k=',k1);   writeln ('i=',k2);         end.бери те переменные, которые используются в конкретной .

1. файл - это именованная область данных на информационном носителе (жестком диске, флешке, cd-диске и тому подобное). 2. структура имени файла обычно (хотя не обязательно) имеет вид: [ название.расширение ] название выбирается пользователем, обычно исходя из содержимого файла, расширение - это трех- или четырех-буквенное сочетание, которое указывает, тип файла (графический, текстовый, исполняемый и тому подобное) и главное - программу или несколько программ, с которых можно "открыть" данный файл, то есть просмотреть, редактировать этот файл и тому подобное. например: knijka.djvu program.exe. 3. на уровне пользователя файлы на диске (или любом другом носителе) организованы в древовидную систему каталогов. технически все это организовано с той или иной файловой системы. какие бывают файловые системы? их много, например: fat, fat32, ntfs, cdfs, nfs, ext2, ext3, и т. д. в разных операционных системах используются разные файловые системы жестких дисков, а для мобильных носителей типа cd- дисков существуют также свои виды файловые систем. 4. операции с файлами: копирование, удаление, перемещение файла, чтение файла, редактирование (запись в файл). для исполняемых файлов - запуск на исполнение. исполняемый файл - это готовая программа. 5. возможно случайное удаление файла. ведь файл может содержать  важную информацию. поэтому при работе с файлами, содержащими важную информацию, следует проявлять некоторую осторожность. кроме того, в самой операционной системе есть важные системные файлы (файлы операционной системы), удаление которых нарушениям в работе или отказе операционной системы, или некоторых устройств, подключенных к компьютеру.

Вы вводите символьную информацию (данное типа char) при процедуры в языке паскаль ввод должен всегда завершаться посылкой пары кодов "перевод строки" и "возврат каретки", что и происходит при нажатии клавиши "enter". так, если вы вводите латинское "а", программа получает не один символ, а три: с кодом "а", с кодом "перевод строки" и с кодом "возврат каретки". и чтение в цикле происходит сразу три раза до очередного обращения к клавиатуре. итого получается четыре прохода по циклу: первые три символа на самом деле воспринимаются, как девять, а затем считывается четвертый, что дает десять и цикл завершается. для правильной работы с символьными данными (char, string) следует использовать не а readln() и все у вас получится. процедура readln() "отрезает" коды "перевод строки" и "возврат каретки".