begin Randomize; Writeln('Элементы массива'); sp:=0; sn:=0; for i := 1 to n do begin a[i] := Random(51)-25; Write(a[i]:4); if a[i]<0 then sn:=sn+a[i] else sp:=sp+a[i] end; Writeln; Writeln('Частное: ',sp/abs(sn)) end.
Вариант со вводом данных с клавиатуры: const n = 15;
var a:array[1..n] of integer; i,sp,sn: integer;
begin Writeln('Вводите через пробел элементы массива'); sp:=0; sn:=0; for i := 1 to n do begin Read(a[i]); if a[i]<0 then sn:=sn+a[i] else sp:=sp+a[i] end; Writeln('Частное: ',sp/abs(sn)) end.
Разъясню 1. ИЛИ ложно, когда оба высказывания ложны. Т.е. 0 ИЛИ 0 = 0, в остальных случаях - истина. Значит, НЕ(х>87) И НЕ НЕ(х кратное 9) В первом случае знак можно поменять: (х<=87), убрав при этом НЕ. Двойное отрицание убираем без последствий: (х кратно 9). Наибольшее число, которое меньше или равно 87 И делится на 9 без остатка = 81. 2. 64 = 2^6 16 = 2^4 1 = 2^0 В двоичной записи десятичного числа 1 стоит на месте степени двойки, разряды нумеруются с конца, начиная с нуля. Запишем разряды(их 6, т.к. первая 1 стоит на 6 позиции с конца, а ведущие нули можно убрать (как в десятичной вместо 008 мы пишем 8) 6 5 4 3 2 1 0 1 0 1 0 0 0 1 под разрядами пишем 1 там, где у нас была степень 2. Это двоичная запись числа. В ней 4 нуля. ответ: 4
n = 15;
var
a:array[1..n] of integer;
i,sp,sn: integer;
begin
Randomize;
Writeln('Элементы массива');
sp:=0; sn:=0;
for i := 1 to n do
begin
a[i] := Random(51)-25;
Write(a[i]:4);
if a[i]<0 then sn:=sn+a[i]
else sp:=sp+a[i]
end;
Writeln;
Writeln('Частное: ',sp/abs(sn))
end.
Тестовое решение:
Элементы массива
2 -25 0 5 24 4 3 1 12 13 10 1 6 13 -17
Частное: 2.23809523809524
Вариант со вводом данных с клавиатуры:
const
n = 15;
var
a:array[1..n] of integer;
i,sp,sn: integer;
begin
Writeln('Вводите через пробел элементы массива');
sp:=0; sn:=0;
for i := 1 to n do
begin
Read(a[i]);
if a[i]<0 then sn:=sn+a[i]
else sp:=sp+a[i]
end;
Writeln('Частное: ',sp/abs(sn))
end.