Решение с использованием файлов 1. дано число к и файл, содержащий целые числа. вывести элемент файла с номером к. если такой элемент отсутствует, то вывести 0. 2. дан файл вещественных чисел. создать 2 новых файла, в первый из которых содержит строки исходного файла с четными номерами, а второй с нечетными номерами.

1) var    k,a,i,n : integer;     t : text;       begin    readln (k);   n : = 0;   assign (t,'test.txt');   reset(t);   i : = 1;     while not eof(t) do     begin      read (t,a);         if a = k then        n : = i;         i : = i +1;         end;     close (t);     writeln (n);   end.2)  var    t,t1,t2 : text;   i : integer;   a : real;   begin  assign (t,'text.txt');     reset (t);   assign (t1,'r1.txt');   rewrite (t1);     assign (t2,'r2.txt');     rewrite (t2);       i : = 1;       while not eof(t)  do      begin      read (t,a);       if i mod 2 = 1 then      write (t1,a: 3: 3,' ')        else          write (t2,a: 3: 3,' ');     i: = i +1;         end;       close (t);     close (t1);     close (t2);   end.

Каждый человек не смотря умеет плавать или нет , хорошо плавает или "знает" должен строго соблюдать правила поведение на воде . купаться нужно в разрешенных , знакомых водоемах , да и не в том дело знаком ли водоем , но и места где точно безопасно  на дне могут оказаться   бревна, камни, коряги  .  обсудим и это . если вы зацепились за корягу / крючок рыболовный или ещё что -  то . не пытайтесь порвать вещь об которую вы зацепились .и не паникуйте . громко попросите у взрослых . в это время сами попытайтесь снять вещь   которой вы зацепились .   нельзя выплывать на судовой ход и приближаться к судну .если ваш друг или любой другой человек начал тонуть зовите взрослых , а если сами хорошо плаваете то подплывите к нему подплывите сзади возьмите за спину или за волосы и плывите на берег . если тонуть начали вы лягте на спину успокойтесь    , дышите ровно зовите взрослых но не разводите панику ! если вы попали в водоворот, наберите побольше воздуха, нырните и постарайтесь резко свернуть в сторону от  него . не хватать друг друга за руки и ноги во время игр на воде. если у вас свело судорогой мышцы, ложитесь на спину и плывите к берегу, постарайтесь при этом растереть сведенные мышцы. не стесняйтесь позвать на . не устраивайте в воде игр, связанных с захватами .