Решить в паскале. даны три массива: a = {17.2, 9.3, 14.5, -11.7, 4.3, 5.9, -11.9, 12.3, -14.1, -15.3}, b = {-1.2, 4.2, 5.9, -18.1, 21.2, -3.1, -5.3, -12.2, 21.4, -4.5, 8.2, 9.4}, c = {3.5, 8.4, -3.2, 4.5, -8.4, -9.5, 1.5,9.3}. для каждого из массивов найти суммы положительных элементов. использовать подпрограмму.

Type   v = array of real; function sumpos(a: v): real; var   i: integer;   s: real; begin   s : = 0;   for i : = 0 to length(a, 0) - 1 do       if a[i] > 0 then s : = s + a[i];   result : = s end; var   a, b, c: v; begin   a : = new real[10] (17.2, 9.3, 14.5, -11.7, 4.3, 5.9, -11.9, 12.3, -14.1, -15.3);   b : = new real[12] (-1.2, 4.2, 5.9, -18.1, 21.2, -3.1, -5.3, -12.2, 21.4, -4.5, 8.2, 9.4);   c : = new real[8] (3.5, 8.4, -3.2, 4.5, -8.4, -9.5, 1.5, 9.3);   writeln('сумма положительных элементов массива а ',sumpos(a));   writeln('сумма положительных элементов массива b ',sumpos(b));   writeln('сумма положительных элементов массива c ',sumpos(c)); end. тестовый прогон: сумма положительных элементов массива а 63.5 сумма положительных элементов массива b 70.3 сумма положительных элементов массива c 27.2

Function subprogram(a: array of real): real; begin   foreach obj: real in a do     if (obj > 0) then       result += obj; end; var   a: array of real : = (17.2, 9.3, 14.5, -11.7, 4.3, 5.9, -11.9, 12.3, -14.1, -15.3);   b: array of real : = (-1.2, 4.2, 5.9, -18.1, 21.2, -3.1, -5.3, -12.2, 21.4, -4.5, 8.2, 9.4);   c: array of real : = (3.5, 8.4, -3.2, 4.5, -8.4, -9.5, 1.5, 9.3); begin   writeln('a => ', subprogram(a));   writeln('b => ', subprogram(b));   writeln('c => ', subprogram(c)); end.

все просто- 

64 цветов значит каждый пиксель(точка) кодируется 6ю

теперь перемножаем высоту и ширину 1024х768=786432 на 6

786432х6= разделим на 8 и найдем сколько байт 4718592/8=

разделим на 1024 чтобы найти сколько килобайт 589824/1024=576килобайт