Составить программу для вычисления элементов одномерного массива по формуле: a[k]: =s*(x[i]*(exp(/ln(z[k])+(s*(exp(b[i,j])*sin(b[i,; у меня получилась такая программа: program lab6_3; var i,j,n,m,k: integer; s,s1,s2: real; a,x,z: array[1..3] of real; b: array[1..3,1..3] of real; begin s: =0; write('введите n='); readln(n); write('введите m='); readln(m); for i: =1 to n do for j: =1 to m do while (k< =2) do begin write('b[',i,',',j,']='); read(b[i,j]); end; for i: =1 to n do begin write('x[',i,']='); readln(x[i]); end; for j: =1 to m do begin a[k]: =s*(x[i]*(exp(/ln(z[k])+(s*(exp(b[i,j])*sin(b[i,; write(' ',a[k]: 0: 4); end; end. не понимаю где ошибаюсь. при вводе данных я ввожу n и m, а потом появляется b[1,1]=1 и у меня он вводит в дальнейшем только b[1,1] до бесконечности и не важно какие при этом

На паскале: program program1; var i, j, n, k: integer; var result: real; var array1: array [1..255] of real; begin         result : = 0;         write('введите значение n (не более 255): ');         readln(n);         for i : = 1 to n do                 begin                   write('введите значение ', i, ' элемента массива: ');                   readln(array1[i]);                 end;                 begin                   writeln('массив, размером - ', n, ' элементов(а): ');                   for i : = 1 to n do write(array1[i], ' ');             writeln;                 end;         for i: =1 to n do                 begin                   k : = 0;                   for j: =1 to n do                   if array1[i] = array1[j] then k : = k + 1;                   if k = 1 then result : = result + array1[i];                 end;         writeln('сумма уникальных элементов массива = ', result); end.

ответ:50.8 в квадрате - 2,580.64 дюйма всего.

1200 в квадрате = 1,440,000 точек на дюйм.

2,580.64 * 1,440,000 = 3,716,121,600‬ точек всего.

32 бита = 4 байта (4*8=32).

3,716,121,600‬ * 4 = 14,864,486,400 байт, или 14,864,486 кБайт, или 14,864 МБайт, или 14,9 ГБайт.

Объяснение: