1)
var a:array [1..10] of integer;
i,sum:integer;
begin
randomize;
sum:=0;
for i:=1 to 10 do
begin
a[i]:=random(100)-50;
write (a[i],' ');
if a[i] < 0 then sum:=sum+a[i];
end;
writeln;
writeln ('Summa: ',sum);
readln;
end.
2)
var a:array [1..10] of integer;
i,max,index:integer;
begin
for i:=1 to 10 do
begin
write ('A[',i,'] = ');
readln (a[i]);
end;
max:=a[1];
index:=1;
for i:=2 to 10 do
if a[i] > max then
begin
max:=a[i];
index:=i;
end;
writeln ('Max: ',max,'.Index: ',index);
readln;
end.
3)
var a:array [1..10] of integer;
max,min,i,temp:integer;
begin
randomize;
for i:=1 to 10 do
begin
a[i]:=random(50);
write (a[i],' ');
end;
writeln;
max:=1;
min:=1;
for i:=2 to 10 do
if a[i] > a[max] then max:=i else
if a[i] < min then min:=i;
writeln ('Max: ',a[max]);
writeln ('Min: ',a[min]);
temp:=a[min];
a[min]:=a[max];
a[max]:=temp;
for i:=1 to 10 do write (a[i],' ');
end.
<em>// PascalABC.NET 3.2, сборка 1387 от 20.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(10,1,10000); a.Println;
a:=a.Where(x->not ((x mod 10<>0) and (x mod 10).IsEven
and (x mod (x mod 10)=0))).ToArray;
a.Println
end.
<u>Пример</u>
1266 6274 1359 3481 9554 324 1546 3063 8166 1562
6274 1359 3481 9554 1546 3063
Орел-зрение
волк-осязание
летучая мышь-слух
дельфин-слух
крот-осязание
XIV + XV = 15 + 14 = 29 = XXIX
Ответ:
95
Объяснение:
1) Выписываем 8 бит числа N
2) Выполняем инверсию каждого бита числа N - получаем число N'. Заметим, что если сложить N и N', то переполнений в разрядах не будет, так как каждый бит складывался с его инверсией, в результате чего бит результата равен 1. Результатом сложения будет 8-битное число, состоящее из всех 1, то есть 255. Иначе говоря, N+N' = 255, N' = 255-N
3) Прибавим к N' число 1, получим 256-N.
По условию, 256-N > 160. Отсюда N < 96. Максимальное N равно 95.
