Господи, да помогите же!!!!100 БАЛЛОВ!!! СРОЧНО!!! 1)Дан файл в первой строке файла кол-во чисел. Найти ср арифм этих чисел 2)Да
Господи, да помогите же!!!!100 БАЛЛОВ!!! СРОЧНО!!! 1)Дан файл в первой строке файла кол-во чисел. Найти ср арифм этих чисел 2)Дан файл посчитать кол-во символов в файле 3)Дан файл.Посчитать кол-во символов в каждой строке исх файла все в паскале и на тему "Файлы"
{1} const whereInput = 'C:\Users\1\Desktop\1.txt'; // <== путь файла var input: text; n, n1, i, sum: longint; begin assign(input, WhereInput); reset(input); readln (input, n); n1:=0; sum:=0; for i:=1 to n do begin read (input, n1); inc (sum, n1); end; close (input); write ('Среднее арифметическое: ', sum/n); end.
{2} const whereInput = 'C:\Users\1\Desktop\1.txt'; var input: text; n: longint; ch: char; begin assign(input, WhereInput); reset(input); n:=0; while not eof(input) do begin read (input, ch); inc (n); if eoln(input) then readln(input); end; close (input); write ('Символов в файле: ', n); end.
{3} const whereInput = 'C:\Users\1\Desktop\1.txt'; var input: text; n, i: longint; ch: char; begin assign(input, WhereInput); reset(input); i:=0; n:=0; while not eof(input) do begin read (input, ch); inc (n); if eoln(input) then begin readln(input); inc (i); writeln ('Символов в ', i, ' строке: ', n); n:=0; end; end; close (input); end.
Program pbc; var a,q,n: integer;begin writeln('введите десять чисел'); readln(a); q:=1; n:=1; while (n<>10) do begin if (a>=20) and (a<=40) then q:=a*q; readln(a); n:=n+1; end; writeln('ответ ',q); <span>end.</span>
Var i,min:integer; m:array[1..10] of integer; begin for i:=1 to 10 do begin readln(m[i]); if i=1 then min:=m[i]; if m[i]<min then min:=m[i]; end; for i:=1 to 10 do begin if m[i]=0 then m[i]:=min; write(m[i],' '); end; <span>end.</span>