Дано описание переменных. выбери верные ответы. var int1, int3: integer; d: real ; s: char; begin имена переменных типы данных

Имена переменных int1, int3d s типы данных integer real char

Uses crt; var  ksl,ksm: longint; a: array of integer;   i,sred,k: integer;     f: text; s: string; begin clrscr;     assign(f,'f1.txt'); reset(f); //из файла   while not eof(f) do        begin     readln(f,s);       ksm: =ksm+length(s); //считаем все символы      end;   writeln(ksm);     reset(f);   for i: =1 to ksm do            begin              if (s[i]=' ') then                      ksl: =ksl+1; //считаем все слова        end;   writeln(ksl);   reset(f); //из файла setlength(a,ksl+1);   for i: =1 to ksl do        begin            read(f,a[i]);         end; close(f); for i: =1 to ksl do          begin            if (a[i]=0) then a[i]: =a[1]+a[ksl]; // '' все нулевые компоненты значением суммы первой и последней компонент файла''         if (a[i]> 0) then               begin                        sred: =sred+a[i]; // ''найти среднее арифметическое положительных компонент''                        inc(k);                 end;                 if (a[i]< 0)then a[i]: =a[i]- abs( a[1]+a[ksl] );   // ''все отрицательные компоненты уменьшить на значение суммы''          end; rewrite(f); //в фаил for i: =1 to ksl do      begin                  write(f,a[i],' ');             end; close(f);   writeln(' sred= ',sred/10: 0: 1); end.