Воперативной памяти компьютера хранится 1 только программы 2 программы и данные 3 только данные 4 файлы

Ядумаю это именно 3

Мне кажется логично будет 2)

:найти среднее арифметическое   положительных чисел одномерного массива. решение  program al; const n=15 ; var a: array[1..n]of integer; k,s,i: integer; sr: real; begin writeln('vvedite massiv='); for i: =1 to n do readln(a[i]); s: =0; k: =0; sr: =0; for i: = 1 to n do if a[i]> 0 then begin k: =k+1; s: =s+a[i]; end; sr: =s/k; writeln('sr=',sr); readln; end.ход действий: сперва находим количество положительных элементовзатем находим сумму и теперь можем найти и среднее арифметическое..

Это на вычисление суммы после уплаты налога. если s0  - исходная сумма, а р - процент налога, то ищется s=s0-s0*p/100. окончательная формула: s=s0(1-p/100) const   p=13;   { налог в процентах } var   s0,s: real; begin   write('введите сумму '); read(s0);   s: =s0*(1-p/100);   { а теперь округлим сумму до копеек, т.е. до 0.01 }   s: =int(100*(s+0.005))/100;   writeln('сумма после вычета налога ',p,'% составит ',s: 0: 2) end. тестовое решение: введите сумму 2000 сумма после вычета налога 13% составит 1740.00 замечание. при целочисленной зарплате и целочисленном проценте налога оператор s: =int(100*(s+0.005))/100; не нужен, поскольку в дробной части всегда будет не больше двух знаков. но, поскольку о сумме зарплаты ничего не говорится, а дано только конкретное значение, которое понято как тестовый пример, было предложено решение с округлением.