Составьте программу подсчета числа различных компонент целочисленного фай-ла. результаты запишите в файл. турбо паскаль

1. программа, файл var   f: file of integer;   i,k: integer; begin   randomize;   assign(f,'in.dat'); rewrite(f);   for i: =1 to 20 do begin       k: =random(99)+1;       write(f,k)       end;   close(f) end. тестовое решение 38 35 14 46 92 49 51 48 84 90 26 14 38 79 82 77 7 24 94 13 2. основная программа uses crt; const   nn=100; var   i,j,k,n: integer;   fin,fout: file of integer;   a: array[1..nn] of integer;   dub: boolean; begin   clrscr;   assign(fin,'in.dat'); reset(fin);   read(fin,k);   if not eof(fin) then begin       n: =1; write(k,' '); a[n]: =k       end   else n: =0;   while (not eof(fin)) and (n< =nn) do begin       read(fin,k); write(k,' ');       j: =1; dub: =false;       while (j< =n) and (not dub) do begin           dub: =(a[j]=k); inc(j);           end;       if not dub then begin inc(n); a[n]: =k; inc(j) end       end;   writeln;   close(fin);   for i: =1 to n do write(a[i],' ');   writeln; writeln('n=',n);   assign(fout,'out.dat'); rewrite(fout);   write(fout,n); close(fout);   readkey end. тестовое решение: 38 35 14 46 92 49 51 48 84 90 26 14 38 79 82 77 7 24 94 13 38 35 14 46 92 49 51 48 84 90 26 79 82 77 7 24 94 13 n=18 в качестве бонуса - решение этой же в современной системе программирования pascalabc.net. // pascalabc.net 3.1, сборка 1219 от 16.04.2016 begin   var fin,fout: file of integer;   reset(fin,'in.dat');   var k: integer;   var a: =new integer[fin.filesize];   var n: =0;   while not eof(fin) do begin       read(fin,k); a[n]: =k; inc(n)       end;   close(fin);   a.println;   var b: =a.tohashset;   b.println; writeln('n=',b.count) end. тестовое решение 38 35 14 46 92 49 51 48 84 90 26 14 38 79 82 77 7 24 94 13 38 35 14 46 92 49 51 48 84 90 26 79 82 77 7 24 94 13 n=18 и вопрос: для чего давать школьникам, 9/10 из которых никогда не будут программистами, устаревшие и громоздкие, сложные для понимания, написания и отладки системы программирования? чтобы показать, "как все это сложно"?

1) если

2)m:real

Отзыв:

Если вам данный ответ или он полностью правильный: отблагодарите автора за потраченное время и правильность ответа, если вам это пометьте его решением и дайте " " автору!

Работу выполнили:

Работу выполнили:@Ord1Shell

Работу выполнили:@Ord1Shell Отдельное

Работу выполнили:@Ord1Shell Отдельное

Работу выполнили:@Ord1Shell Отдельное