1.построить файл данных, компонентами которого являются натуральные числа. подсчитать сумму тех компонент, которые делятся на 5 и не делятся на 10. 2.построить типизированный файл данных, который состоит из записей с такими полями: название продукта, количество углеводов, количество белков, количество жиров. вывести названия тех продуктов, которые соответствуют следующим условиям: белки меньше 20, жиры больше 10, углеводы больше 30.

program kdsup_1; uses crt; var  f: file of integer;   i,n,x,sum : integer; begin  write('введите количество чисел: ');   readln(n);   assign(f,'1.dat');   rewrite(f);   for i: =1 to n do      write(f,random(100)+1);   reset(f);   writeln('исходный файл: ');   while not eof(f) do      begin          read(f,x);           write(x,' ');       end;   writeln;   sum: =0;   for i: =0 to filesize(f)-1 do      begin          seek(f,i);           read(f,x);           if (x mod 5=0) and (x mod 10< > 0) then              begin                  sum: =sum+x;               end;           end;   close(f);   writeln('сумма: ',sum); end.program kdsup_2; uses crt; type    eda=record            prod: string;             ugl,bel,fat: real;         end;     ps=file of eda; var f: ps;       i,n,m: integer;       z: eda; begin  assign(f,'1.dat');   rewrite(f);   writeln('ввести количество продуктов');   readln(n);   randomize;   for i: =1 to n do      begin          z.prod: ='product_'+inttostr(i);           z.ugl: =random(100);           z.bel: =random(100);           z.fat: =random(100);           write(f,z);       end;   close(f);   writeln('***************************************');   writeln('*                          м е н ю                              *');   writeln('*        продукты с содержанием                  *');   writeln('*              белки: меньше 20                        *');   writeln('*                жиры: больше 10                        *');   writeln('*        углеводы: больше 30                        *');   writeln('***************************************');   assign(f,'1.dat');   reset(f);   while not(eof(f)) do       begin          read(f,z);             if (z.ugl> 30) and (z.bel< 20) and (z.fat> 10) then                writeln('        ',z.prod);       end;   close(f); end.

№1 data 11,12,14,9,7,6,11,-20,55,333,222,111,11,900,-100,23,16,17,30,21,22,24,55,4444,500 dim a(25) for i=1 to 25 read a(i) print a(i) next for i=1 to 25   for j=1 to 24 if a(j)< a(j+1) then swap a(j),a(j+1) next next print "summa 4etireh naibolshih="; a(1)+a(2)+a(3)+a(4) print "summa 4etireh naimenshih="; a(25)+a(24)+a(23)+a(22) №2 cls input "n"; n dim a(1 to n), b(1 to n) for i = 1 to n a(i) = int(rnd * 100) b(i) = int(rnd * 100) print a(i), b(i) next i imin = 0 min = b(1) for i = 1 to n if b(i) < min then imin = i if i > imin then s = s + a(i): k = k + 1 next i sr = s / k print print "imin"; imin print "sr"; sr

515b - в шестнадцетиричной сс(системе счисления)b - под номер 11 так как 0,1..9 10(a) 11(b) 12(c)шестнадцатиричная  сс состоит из 0,1..9  10(a)  11(b)  12(c) .. 15(f) ответ:   515b - шестнадцетиричная (16)            4305 - десятичная (10) или шестиричная (6)            9463 - десятичная (10) или десятичная (10), если отталкивать от условия " основание системы счисления должно быть больше 2 и не больше 36" а правильно я отметил я изучал 3 сс: (двоичная сс, десятичная, шестнадцетиричная, есть и другие не отрицаю)