<em>// PascalABC.NET 3.2, сборка 1407 от 18.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var b:=Arr(2,7,11,15,4,-2,6);
Writeln('Первое отрицательное под номером ',b.FindIndex(k->k<0)+1);
Writeln('Сумма положительных ',b.Where(k->k>0).Sum);
Writeln('Минимальное значение под номером ',b.IndexMin+1)
end.
<u>Результат</u>
Первое отрицательное под номером 6
Сумма положительных 45
Минимальное значение под номером 6
Ответ:
Устройства ввода — это, в основном, датчики преобразования неэлектрических величин (расположение в пространстве, давление, вязкость, скорость, ускорение, освещённость, температура, влажность, перемещение, количественные величины и т. п.) и электрических величин в электрические сигналы, воспринимаемые процессором для дальнейшей их обработки в основном в цифровом виде.
Клавиатура
Мышь и тачпад
Планшет
Джойстик
Сканер
Цифровые фото, видеокамеры, веб-камеры
Микрофон
Устройства вывода — это преобразователи электрической цифровой информации в вид необходимый для получения требуемого результата, который может быть как не электрической (механические, тепловые, оптические, звуковые), так и электрической природы (трансформаторы, нагреватели, электродвигатели, реле).
Монитор
Графопостроитель
Принтер
Акустическая система
В оперативную ))))))))))))))
1)
const eps=0.5e-6;
var x,xn,a0,a1:real;
begin
readln(x,a0);
xn:=1;
while abs(a0-a1)>=eps do
begin
a0:=a1;
xn:=x*xn;
a1:=sin(1+a0*a0*a0)/xn;
end;
writeln(a1);
end.
2)
const eps=0.5e-6;
var x,xn,a0,a1:real;
begin
readln(x,a0);
xn:=1;
repeat
a0:=a1;
xn:=x*xn;
a1:=sin(1+a0*a0*a0)/xn;
until abs(a0-a1)<eps;
writeln(a1);
end.
Пример:
1.2 0.9
<span> 2.41185904021433E-006</span>
var
i, s: integer;
begin
s:= 0;
for i:= 50 to 100 do
if (i mod 2 = 0) and (i mod 3 = 0) then s:= s + i;
writeln(s);
readln;
end.
