Дается последовательность из n чисел. выведите сумму нечетных чисел среди них. формат входных данных: первая строка входного файла содержит целое число n (1< =n< =1000 в следуйщей строке n поожительных целых чисел, каждая из которых меньше или равно 1000. формат выходных данных выведите ответ к .

Program chisla; var a, l: string; n, b, c, i, d, e: integer; begin c: =0; e: =0; writeln('введите количество чисел'); readln(n); if 1< =n< =1000 then writeln('введите числа'); readln(a); b: =length(a); for i: =1 to b do c: =c+1; if a[i]=' ' then l: = copy(a,i-c,i-1); d: =strtoint(l); if d mod 2> 0 then e: =e+d; writeln(e); end.

1) n = 2^i     i = 1байт = 8 бит     n = 2^8 = 256 чисел, то есть войдут числа от  0 до 255, где  последнее число 255 ответ: 255. 2)  n = 2^i     i = 2 байта = 16 бит     n = 2^16 =  65536  цветов ответ: 65536 3)  n = 2^i     i = 3 бита     n = 2^3 = 8 ответ: 8 подъездов 4) k= 1125 байт = 9000 бит 9000/3 страницы = 3000 бит на одну страницу 3000/25 строк = 120 бит на одну строку 120/60 символов = 2 бит на один символ значит i = 2 n=2^i n=2^2=4 ответ: 4

Var a: array of array of integer; c: array of array of integer; ma: array of array of integer; i,j,n: integer; begin; randomize; readln(n); setlength(a,n+1); //задаём размерность динамических массивов setlength(c,n+1); setlength(ma,n+1); for i: =1 to n do begin; setlength(a[i],n+1); setlength(c[i],n+1); setlength(ma[i],n+1); end; writeln('matrix a: ');   //генерируем массив псеводслучайных чисел for i: =1 to n do  begin;   writeln;   for j: =1 to n do     begin;     a[i,j]: =random(10);     write(a[i,j]: 4);     end;   end; writeln; writeln('matrix c: '); //аналогично for i: =1 to n do   begin;   writeln;   for j: =1 to n do     begin;     c[i,j]: =random(10);     write(c[i,j]: 4);     end;   end; for i: =1 to n do     //сохраняем матрицу c для транспонации   for j: =1 to n do     ma[i,j]: =c[i,j];       writeln; writeln('transpose matrix c: '); //транспонируем c for i: =1 to n do   begin;   writeln;     for j: =1 to n do     begin;       c[i,j]: =ma[j,i];       write(c[i,j]: 4);     end;   end; writeln; writeln('final matrix: '); // получаем финальную матрицу for i: =1 to n do   begin;   writeln;     for j: =1 to n do     begin;       ma[i,j]: =2*c[i,j]*a[i,j]; {по свойству дистрибутивности матриц с(a+a)=c*a+c*a=2*c*a}       write(ma[i,j]: 4);     end;   end; end.