Помогите решить задачу в паскале.Даны три массива: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
Extorned
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
a, b, max: integer;
readLn(a);
readLn(b);
if (a<b) then begin
a:=a*2;
max:=a;
end
else begin
b:=b*2;
max:=b;
end;
writeLn(max);
end.
<em><u>Желательно проверить работу программы. Если что-то пошло не так - пишите, можете прислать фото ошибки. Буду рад, если Вы отметите моё решение как "Лучший ответ"!</u></em>
Спутники Урана — естественные спутники планеты Уран. Известно 27 спутников. Все они получили названия в честь персонажей из произведений Уильяма Шекспира и Александра Поупа. Первые два спутника — Титанию и Оберон — в 1787 году открылУильям Гершель. Ещё два сферических спутника (Ариэль и Умбриэль) были открыты в 1851 году Уильямом Ласселом. В 1948 году Джерард Койпер открыл Миранду. Остальные спутники были открыты после 1985 года, во время миссии «Вояджера-2», или с помощью усовершенствованных наземных телескопов.
<em>// PascalABC.NET 3.2, сборка 1488 от 21.06.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
ReadSeqReal('10 чисел через пробел:',10).Reverse.Println
end.
<u>Пример</u>
10 чисел через пробел: 3.6 -2.17 5 12.7 0 1e-12 82 3.18e6 -263 3.14
3.14 -263 3180000 82 1E-12 0 12.7 5 -2.17 3.6
Всего можно выбрать 32 числа, значит вероятность выбора одного числа равна
известно, что
следовательно i равно 5 байтам или 5*8=40 бит
